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1. -C CCDEFN. TEXT • > 

2. -C 

3. < CCDEFN — Corvus CONCEPT Definition Unit 

4. < 

5. -C (c) Copyright 1983 Corvus Systems, Inc. 

6. < San Jose, California 

7. -C 

8. -C All Rights Reserved 

9. -C 

10. < v 1. 11-01-81 LEF Original unit 

11. -C v 1. 1 01-17-82 PHB a few mods... 

12. < v 1.2 03-24-82 LEF Add SndRcvStr definition 

13. < v 1. 3 04-05-82 LEF Add window record definition 

14. -C Add I/O result equates 

15. < v 1. 4 10-18-82 LEF Window record definition moved to CCwndIO 

16. < v 1. 5 01-07-83 LEF Added more I/O result codes 

17. -C 

18 . { > 

19. 

20. UNIT CCdefn; 

21. 

22. INTERFACE 

23. 

24. CONST 

25. MAXWINDOW = 20; 

26. SysComPLoc = $0180; 

27. LongStrMax = 1030; 

28. MaxBytes = 10000; 
29. 

30. -C > 

31. -C Corvus CONCEPT I/O Result Codes > 

32. -C > 
33. 

34. IOok = 00; { Good result, no error > 

35. IOEinvdev= 02; < Invalid unit number/invalid device > 

36. IOEioreq = 03; { Invalid I/O request > 
37. 

38. IOEnotrn = 21; -C Transporter not ready > 

39. IQEtimot = 22/ -C Timed out waiting for Omninet event > 

40. IOEnobuf = 23; -C Read without a valid write buffer > 
41. 

42. IOEwndfn * 32; < Invalid window function > 

43. IOEwndbe = 33; -C Window create boundary > 

44. IOEwndcs = 34; { Invalid character set > 

45. IOEwnddc = 35; -C Delete current window > 

46. IOEwndds = 36; -C Delete system window > 

47. IOEwndiw = 37; < Inactive window > 

48. IOEwndwr = 38; -C Invalid window record > 

49. IOEwndwn = 39; i. Invalid system window number > 
50. 

51. lOEnodsp = 40; -C Display driver not available > 

52. IOEnokyb = 41; -C Keyboard driver not available > 

53. IOEnotim = 42; < Timer driver not available > 

54. IOEnoomn - 43; -C OMNINET driver not available > 
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57. 
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60. 

61. 
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73. 
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77. 
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79. 

80. 

81. 

82. 

83. 

84. 

85. 

86. 

87. 



90. 
91. 
92. 
93. 
94. 
95. 
96. 
97. 
98. 



- Cross Reference Listing 
CCDEFN. TEXT 



IOEnoprt * 44i 
IOEnfdrv * 45; 
IOEnodtc - 46; 



IOEtblid 
IOEtblfl 
lOEtbliu 
IOEkybte 
IOEuiopm 
IOEprmln 
IOEfnccd 
IOEclkmf 



50; 
51; 
52; 
53; 
54; 
55; 
56; 
57; 



IOEirdsbl* 60; 
IOEordsbl- 61; 
IOEiwdsbl« 62; 
IOEowdsbl= 63; 
IOEbszerr= 64; 
IOEwsz err* 65; 
IQErszerr* 66; 
IOEuarter= 67; 
IOEpaderr- 68; 



< Printer driver not available 
■C No floppy drive at slot 

< DataComm driver not available 

■C Invalid table entry ID 

■C Table full 

■C Table entry in use 

■C Keyboard transmission error 

-C Invalid unit I/O parameter 

•C Invalid parameter block length 

■C Invalid function code 

■C Clock (hardware) malfunction 

■C Input to read buffer disabled 
■C Output to read buffer disabled 
■C Input to write buffer disabled 
•C Output to write buffer disabled 
■C Buffer size error 

< Write size error 
■C Read size error 

•C UART hardware error 

< Proportional spacing error 
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> 
> 
> 

> 

> 
> 

> 
> 
> 
> 

> 
> 
> 

> 
> 
> 
> 
> 
> 



Byte 

pByte 

String32 

pString32 

String64 

pString64 

String80 

pString80 

Bytes 

Words 

pBy tes 

pWords 

SlotType 



-128. . 127; 

"Byte; 

STRINGC323; 

"•String32; 

STRINGC643; 

""String64; 

STRINGC803; 

"•String80; 

ARRAY CO. . 99993 OF Byte; 

ARRAY CO. . 99993 OF INTEGER; 

"•Bytes; 

"•Words; 

(NoDisk. LocalDisk, OmninetDisk, 
FlpyC8Disk, FlpyCSDisk, FlpyASDisk); 



IMPLEMENTATION 
END. 
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26 
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79 
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55 
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60 


68 


61 


69 


62 


70 


63 


71 


64 


72 83 


65 


73 


66 


74 


67 


75 


68 


76 


80 


85 


9999 


87 88 


BYTE 


79 80 


BYTES 


87 89 


CCDEFN 


20 


FLPYA5DISK 


93 


FLPYC5DISK 


93 


FLPYC8DISK 


93 


IOEBSZERR 


72 
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IOECLKMF 


66 






IOEFNCCD 


65 






IOEINVDEV 


35 






IOEIQREQ 


36 






IOEIRDSBL 


68 






IOEIWDSBL 


70 






IOEKYBTE 


62 






IOENFDRV 


56 






IOENOBUF 


40 






IOENODSP 


51 






IOENODTC 


57 






IOENOKYB 


52 






IOENOOMN 


54 






IQENOPRT 


55 






IOENOTIM 


53 






IOENOTRN 


38 






IOEORDSBL 


69 






IOEOWDSBL 


71 






IOEPADERR 


76 






IOEPRflLN 


64 






IOERSZERR 


74 






IOETBLFL 


60 






IOETBLID 


59 






IOETBLIU 


61 






IOETIMOT 


39 






IOEUARTER 


75 






IOEUIOPM 


63 






IOEWNDBE 


43 






IOEWNDCS 


44 






IOEWNDDC 


45 






IOEWNDDS 


46 






IOEWNDFN 


42 






IOEWNDIW 


47 






IOEWNDWN 


49 






IOEWNDWR 


48 






IOEWSZERR 


73 






IOGK 


34 






LOCALDISK 


92 






LONOSTRMAX 


27 






MAXBYTES 


28 






MAXWINDOW 


25 






NODISK 


92 






OMNINETDIS 


92 






PBYTE 


80 






PBYTES 


89 






PSTRIN032 


82 






PSTRING64 


84 






PSTR ING80 


86 






PWORDS 


90 






SLOTTYPE 


92 






STRING 


81 


83 


85 


STRING32 


81 


82 




STRING64 


83 


84 




STRING80 


85 


86 
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1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 
9. 
10. 



13. 
14. 
15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 



■C CCHEXOUT. TEXT 

< 

■C CCHEXOUT 

•G 

•C 

■C 

■C 

< 

■f 

■c 



Output Hex Characters Unit 



(c) Copyright 1982 Corvus Systems, Inc. 
San Jose* California 



All Rights. Reserved 

v 1.0 01-16-82 PHB Original unit 



•C*R-> 

UNIT CChexOut; 

INTERFACE 

USES -C*U CCLIB> CCdefn; 

PROCEDURE CChexIniti 

PROCEDURE puthexbyte (b 

PROCEDURE puthexword (w 

PROCEDURE puthexlong (1 

PROCEDURE dumpher. (p 

IMPLEMENTATION 

■C*P> 



byte); 

integer ) ; 

longint >; 

pBytes; len: integer); 
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30. TYPE 

31. NIBBLE a O. . 15; 

32. MBYTE = packed array CO. .11 of NIBBLE; 

33. HWORD = packed array CO. .13 of HBYTE; 

34. HLONO - packed array CO. 33 of HBYTE; 
35. 

36. VAR 

37. hexstr: array CO. . 153 of CHAR; 
38. 

39. 

40. PROCEDURE CChexInit; 

41. var i. integer; ts: STRING32; 

42. begin 

43. ts := '0123456789ABCDEF'; 

44. for i : •- to 15 do hexstrCi3 : * tsCi+13; 

45. end; 
46. 

47. 

4B. PROCEDURE puthexbyte {(b: byte)}; 



49. 


var trix: packed record case integer of 


50. 


1: <h: HBYTE); 


51. 


2: (num: byte); 


52. 


end; 


53. 


b e g i n 


54. 


with trix do begin 


55. 


num : = b; 


56. 


write (htxstrCh.CJ.33. hexstr ChCOH 3 ) ; 


57. 


end; 


58. 


end; 


59. 




60. 




61. 


PROCEDURE puthexword <<u»: integer )>; 


62. 


vav i: integer; 


63. 


trix: packed record case integer of 


64. 


1: (h: HWORD); 


65. 


2; (num: integer); 


66. 


end; 


67. 


begin 


68. 


with trix do begin 


69. 


num : = w; 


70. 


for i : ~ to 1 do write (hexstrChC: 


71. 


end; 


72. 


end; 


73. 




74. 


•C*P> 
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75 PROCEDURE puthexlong -C ( 1 : longint)>; 

76 vav i: integer; 

77. trix: packed record case integer of 

78 .1: <h: HLGNG); 

79 2: <num: longint); 

80 end; 

91. be<jin 

82 with trix do begin 

33. num : - 1 ; 

84. for i : *•• to 3 do write ( hexstr Ch C i 3 C 1 3 1, ' hexstr Ch C i 3 C03 3 ) ; 

85 end; 

86 end; 
87 

88. 

89. PROCEDURE dumphex <(p: pHytes; len: integer>>; 

90. vav i; integer; 

91 trix: packed record case integer of 

92. 1: (h; MBYTE); 
93 2: (nu«n: byte); 

94. end; 

95. be'.tin 

96. if len .. MaxBytes then len := MaxBytes; 

97. €av i :•■■•- to .'(.en - 1 do begin 

98. with trix do begin 
99 num : = p-|.i'j, 

100 write ( h exs tr Ch C 1 3 3, hexstrt h C03 3, ' '); 

101. end; 

102. if i MOD 4 * 3 then begin 
103 write ( ' '); 

104. if i MOD 16 ~ 15 then write In; 

105. if i MOD 128 = 127 then write In; 

106. end; 

107. end; 

108. end; 
109. 

110. end. -tend of UNIT hexout> 

111 
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16 


104 
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51 


65 


79 
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34 


84 
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4 


102 




















B 


22 


55 


















BYTE 


22 


51 


93 
















CCDEFN 


19 




















CCHEXINIT 


21 


40 


















CCHEXOUT 


15 




















DUMP HEX 


25 


89 


















H 


50 


56 


64 


70 


78 


84 


92 


.100 






HBYTE 


32 


33 


34 


50 


92 












HEXSTR 


37 


44 


56 


70 


84 


100 










HLQNG 


34 


78 


















HWORD 


33 


64 
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41 

105 


44 


62 


70 


76 


84 


90 


97 


99 1 02 


104 


L 


24 


83 


















LEN 


25 


96 


97 
















LONG I NT 


24 


79 


















MAXBYTES 


96 




















NIBBLE 


31 


32 


















NUM 


51 


55 


65 


69 


79 


83 


93 


99 




^ . 


P 


25 


99 


















PBYTES 


25 




















PUTHEXBYTE 


22 


48 


















PUTHEXLONG 


24 


75 


















PUTHEXWORD 


23 


61 


















STRING32 


41 




















TRIX 


49 


54 


63 


68 


77 


82 


91 


98 






TS 


41 


43 


44 
















W 


23 


69 
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< CCLNGINT. TEXT > 

< 

•C CCLNGINT — Corvus CONCEPT Long Integer Unit 

■C 

■C (<:) Copyright 1982 Corvus Systems. Inc. 

■C San Jo&e. California 



All Rights Reserved 
v 1. O 05-21-82 DP 



Original., unit 



■C 

< • — 

■C*R-> 



10 

11. 

12. 

13. 

14. 

15 UNIT CClnglnt; 

16. 

17 INTERFACE 

18 

19. USES <*U CCLIB> CCtJefn; 

20. 

21 FUNCTION LIntDyte (Which: integer; Num: longint): byte; 

22 PROCEDURE ByteLInt (VAR Num: longint; by teO, by tel, by te2. by te3: byte); 

23. FUNCTION lnt2Qyte (Which. Num: INTEGER): byte; 

24. PROCEDURE Byte2Int (VAR Num: INTEGER; byteO. bytel: byte); 
25. 

26. 

27 IMPLEMENTATION 

28 

29. TYPE 

30. 

Longaddr = RECORD CASE INTEGER OF 

0: (Longword: LONGINT); 

1: <Longbyte: PACKED ARRAY CO. . 31 OF BYTE)i 

END; 



31. 
32. 
33. 
34. 
35. 
36. 
37. 
38 
39. 
40. 
41. 
42. <*P> 



Intaddr = RECORD CASE INTEGER OF 
O: (int: INTEGER); 

1: (Byt: PACKED ARRAY CO. .13 OF BYTE); 
END; 
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43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 



{ „ . _ > 

•C Procedure: LINTBYTE 
< 

< Description: This procedure returns the byte indicated by 'WHICH' 

< from the long integer 'NUM'. The least significant byte 

< of the long integer is byte zero. 
■C 



FUNCTION LIntByte {(Which: integer; Num: longint): byte>; 
VAR ByteNum: LongAddr; 
BEGIN 

ByteNum. LongWord: = Num; 
LIntByte := By teNum. LongBy teCWh ich J; 
END; C LIntByte > 



Procedure: BYTELINT 

Description: This procedure converts four byte quantities into a long 
integer value. ByteO is the most significant byte of 
the long integer; Byte3 is the least significant byte 
Replacement is used instead of the arithmetic 
solution for speed and compactness of code. 



PROCEDURE ByteLInt -C(VAR Num 
VAR ByteNum: LongAddr; 
BEGIN 

ByteNum. LongBy teCO!] := ByteO; 
ByteNum. LongByteCl 1 :« Bytel; 
By teNum. LongByteC23 := Byte2; 
ByteNum. LongByteC33 := Byte3; 
Num : - ByteNum. LongWord; 
END; -G ByteLInt > 



longint; by teO* by tel / by te2> by te3: byte)>; 
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83. -C > 

84. < Procedure: INT2BYTE 

85. -C 

86. < Description: 

87 -C 

88 { y 

89. 

90. FUNCTION Int2Byte {(Which, Num: INTEGER): byte>; 

91. VAN ByteNum: IntAddr; 

92 BEOIN 

93 ByteNum. Int := Num. 

94. Int2Bgte : = By teNum. By t CWh ich J; 

95. END; t Bute2Int > 
96. 

97. 

98. -C ■ > 

99. -C Procedure: BYTE2INT 

100. -C 

101. -i Description: 

102. ■(: 

103. < > 

104. 

105. PROCEDURE Byte2Int -CCVAR Num: INTEGER; byteO, bytel: byte)>; 

106. VAR ByteNum: IntAddr; 

107. BEOIN 

108. ByteNum. Byti:03 := byteO; 

109. ByteNum. Pytri] : = bytel; 

110. Num : = ByteNum. Int; 

111. END; t Byte2Int > 
112. 

113. END. 
114 
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22 
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22 
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37 


93 


110 
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23 


90 


94 
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36 


91 
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LINTBYTE 


21 


52 


56 






LONGADDR 


31 


53 


72 






LONGBYTE 


33 


56 


74 
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76 


LONG I NT 
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55 
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56 
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i. CCCLKTO. TEXT - 
■C CCCLKIO 



Corvus CONCEPT Clock Processing Unit 



< (. ) Copyright 1982 Corvus Systems* Inc. 
San Jo&ei California 



S 

10 
11 
12. 



All Rights Reserved 



v 1 04-10-82 LEF Original unit 

v l. 1 09-07-82 LEF Rework of INTERFACE section 



16 UNIT CCclklO, 

1 7. 

18. INTERFACE 



C 1 k S t v 
ClkPB 



titr ingL40D; 

vec or d 

Day of Week, Month, Day: 

Hour, Minsi Sees, Tenths, LeapYear: 

Year 

end, 



integer; 


■C 


set 


by driver 


inteqer; 


■C 


set 


by driver 


integer; 


■C 


set 


by unit 



28 


pClkDateRcd 


" : '■(.: 1 k Da teRcd; 


2.9. 


ClkDateRrd 


= packed record 


30 




ij ear: O. . lOO 


31. 




day: 0. . 31; 


32 




month: O. 12; 


33. 




end; 



35 PROCEDURE CCclklOinit; 



36 PROCEDURE ClkRead 



37 
3B. 
39 
40. 
41 
42. 
43. 
44 
45 
46. 
47 
48. 
49 



PROCEDURE ClkWrite 
PROCEDURE ClkWeekDay 
PROCEDURE ClkDatel 
PROCEDURE ClkDate2 
PROCEDURE ClkDate3 
PROCEDURE ClkTimel 



(war CPB: ClkPB); 

(CPB. ClkPB); 

(war DateStr 

(war DateStr 

(var DateStr 

(var DateStr 

(var DateStr 



ClkStr40) 
ClkStr40) 
ClkStr40) 
ClkStr40> 
ClkStr40) 



■Cday of week) 
■C"dy-mon-yr " format> 
{"month dy, year" format} 
■C"dy month year" format} 
■C"hr:mi:sc" format> 



PROCEDURE ClkTime2 (war DateStr: ClkStr40); -C"hr:mi am" format} 
PROCEDURE CvDateStr (DateStr: ClkStr40; var drcd: ClkDateRcd); 

IMPLEMENTATION 
■C*P} 
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50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88 
89. 
90. 
91. 
92. 
93. 
94. 



CONST wrlen 
rdlen 



*10; 
*0E; 



TYPE ClkStr2 ~ «tringC2J; 
ClkStrlO - stringCJ03; 



sysda 


fee: ClkDateRcd; 


•C system 


date 


> 


ClkWD 


ClkStrlO; 


■L day of 


week 


> 


ClkYr 


ClkStrlO; 


< year 




> 


ClkMo 


ClkStrlO; 


■C month 




> 


ClkDy 


ClkStr2; 


{ day 




> 


ClkHr 


ClkStr2; 


< hour 




> 


ClkMi 


ClkStr2i 


f minute 




> 


ClkSc 


ClkStr2; 


< second 




> 


C 1 k I n 


Fo: ClkPB; 


< clock parameter bl 



FUNCTION OStimDv: integer; external; 
FUNCTION pOSdate: pClkDateRcd; external; 



■C Cvtlnt 

■C Convert integer to ClkStr2 string 



PROCEDURE cvtint Ci: integer; var st: ClkStr2>; 
begin 

st := '— '; i : r= i mod 100; 
stela := chr((i div 10)+ord ( '0 ' ) ) ; 
stC23 :* chr<(i mod 10)+ord < '0 ' ) ) ; 
end; 



< WeekDay — ■ 

•C Compute day of week <1..7 -- Sunday to Saturday) 



FUNCTION WeekDay <d,m»y: integer): integer; 
begin 

if m O 2 then begin m := m .+ 12; y := y - 1; end; 
WeekDay := <<y-C*365> + <y div 4) + m*28 + 

((13*m -- J 2) div 5) + d - 30) mod 7) + 1; 
end; {WeekDay > 
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PROCEDURE ClkFormat (CPB: 
var yr: ClkStr2; 
h e g x n 
with CPB do begin 

ClkWD : = (">; 

tan.e DayofWeek 



95. i ClkFormat 

96 <; 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
104. 
105. 
106. 
107 
108. 
109. 
110 
111. 
112 
113 
114. 
115. 
116. 
117 
118. 
119 
120. 
121 
122. 
123 
124. 
125. 
126. 
127. 
128 
129. 
130. 
131 
132. 
133 
134. 
135 
136. 
137 



1 


ClkWD 


= ( 


'Sunday' ) ; 


2 


ClkWD 


= ( 


'Monday ' ); 


3 


ClkWD 


= ( 


'Tuesday ' ); 


4 


ClkWD 


- ( 


'Wednesday ' ) 


5 


ClkWD 


= ( 


'Thursday ' ); 


6 


ClkWD 


= ( 


'Friday ' ); 


7 


ClkWD 


= < 


'Saturday ' ); 


end 


{case} 






cvtint 


(Year. yr 


), 




ClfcYr : 


= cone at 


( '19', yr); 


ClkMo : 


= ( ' '), 






case Mo 


ith of 






1 


ClkMo 


- ( 


'January ' ); 


2 


ClkMo 


= < 


'February ' ); 


3 


ClkMo 


= ( 


'March '); 


4 


ClkMo 


= ( 


'April '); 


5 


ClkMo 


■ ( 


'May '); 


6 


ClkMo 


= ( 


'June ' ); 


7 


ClkMo 


= ( 


'July '); 


8 


ClkMo 


- < 


'August ' )» 


9 


ClkMo 


= ( 


'September ' ) 


10 


ClkMo 


■m ( 


'October ' ); 


11 


ClkMo 


= ( 


'November ' ); 


12 


ClkMo 


= < 


'December ' ) i 


end 


•Cease) 






cvtint 


(day, C). 


kDy ) 




cvtint 


(hour.C) 


kHr) 




cvtint 


(mins. CI 


kMi ) 




cvtint 


(sees. CI 


kSc ) 
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138. < C Ik Write ■ > 

139. < Write system clock 

140. -C > 

141. 

142. PROCEDURE ClkWrite; {(CPB: ClkPB)> 

143. war timer: integer* 

144. begin 

145. with CPB do begin 

146 DayofWeek := WeekDay (Day* Monthi sysdate. year >; 

147. LeapYear : = Year mod 4; 

148. end; 

149. timer := OStimDv; 

150. unituirite ( timer. CPBi wrlen ) ; 

151. timer : = ioresult; 

152. if timer O then writeln ('Clock write error: '» timer: 1); 

153. end; 
154. 

155. 

156. < ClkRead ■ > 

157. -C Read system clock 

158. -C > 

159. 

160. PROCEDURE ClkRead; t(\/ar CPB: ClkPB>> 

161. var timer: integer; psysdate: pClkDateRcd; 

162. begin 

163. timer := OStimDv; 

164. unitread ( timer. CPB. rdlen ) ; 

165. timer := ioresult; 

166. if timer O then u/riteln ('Clock read error: ', timer: 1); 

167. psysdate := pOSdate; sysdate := psysdate"-; 

168. with CPB do begin 

169. year : = sysdate. year; 

170. LeapYear : = Year mod 4; 

171. end; 

172. end; 
173. 

174. 

175. < ClkWeekDay > 

176. < Return day of week string 

177. -C > 

178. PROCEDURE ClkWeekDay <.<vaT DateStr: ClkStr40>>; 

179. begin 

180. ClkRead (Clklnfo); ClkFormat (Clklnfo); j 

181. DateStr : = ClkWD; 

182. end; 
183. 

184. 

185. -C*P> 
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186. -C ClkDatel > 

187. < Return date string < "dy-mon-yr " format) 

188. -C > 

189. PROCEDURE ClkDatel -C(var DateStr: ClkStr40)>; <." dy-mon-yr" format) 

190. begin 

191. ClkRead (Clklnfo)i ClkFormat (Clklnfo); 

192. DateStr := concat (CI kDy, '- ', copy (CI kMo, 1, 3) , '- ', copy (CI kYr, 3, 2) ) , 

193. end; 
194. 

195. 

196. -C ClkDate2 > 

197. < Return date string ("month dy, year" format) 

198. -C > 

199. PROCEDURE ClkDate2 -C(var DateStr: ClkStr40)>; <"month dy, year" format) 

200. var dy: ClkStr2; 

201. begin 

202. ClkRead (Clklnfo); ClkFormat (Clklnfo); 

203. dy := ClkDy; if dyt!13 » '0' then delete (dy,l,l>; 

204. DateStr := concat (ClfcMo. ' ', dy, ', ',ClkYr); 

205. end; 
206. 

207. 

208. < ClkDate3 > 

209. < Return date string ("dy month year" format) 

210. < > 

211. PROCEDURE ClkDate3 tivar DateStr: ClkStr40)>; {"dy month year" format) 

212. var dy: ClkStr2; 

213. begin 

214. ClkRead (Clklnfo); ClkFormat (Clklnfo); 

215. dy :=ClkDyj if dyC13 = 'O ' then delete (dy,l,l>; 

216. DateStr := concat (dy, ' '.ClkMo. ' ',ClkYr); 

217. end; 
218. 

219. 

220. <*P> 
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221. -C ClkTimel > 

222. < Return time string <"hr:mi:sc" format) 

223. -f- > 

224 PROCEDURE ClkTimel -C(var DateStr: CI kStr40> >; <"hr:mi:sc" format> 

225. begin 

226. ClkRead (Clklnfo); ClkFormat (Clklnfo); 

227 DateStr :* concat (CI kHr, ' : ' , CI kfli, ' : ' , CI kSc ) ; 

228 end; 
229. 

230 

231. -C ClkTime2 • > 

232. < Return time string ("hr:mi am" format) 

233. -C — > 

234. PROCEDURE ClkTime2 <(var DateStr: ClkStr40)>; {"hrmi am" format> 
235 var hr, ampm: ClkStr2; 

236. begin 

237 ClkRead (Clklnfo); ClkFormat (Clklnfo); 

238. with Clklnfo do begin 

239. if Hour in CO. . 11U then ampm : = 'am' else ampm := 'pm'; 

240. if Hour = then Hour :* 12; 
241 if Hour > 12 

242. then cvtint <Hour-12< hr ) 

243 else cvtint (Hour.hr); 

244. if hrl'll * '0' then delete (hr, 1,1); 

245. end; 

246. DateStr :- concat ( hr, ' : ', CI kMi, ' ',ampm); 

247. end; 
248. 

249. 

250. -C*P> 
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PROCEDURE CvDateStr {(DateStr: ClkStr40; var drcd: C 1 kDateRc d ) ) ■; 
var i,jx integer; s: ClkStr40i ch: char; ok: boolean; 

FUNCTION nextch: char; 
var ch: char; 
begin 

if ix <~ length (s) 
then beriin 

c: h : - s C i x ] ; i x ■ : = i x + J ; 

if c:h >= 'a' then ch .= chr(ord(ch) - 31? 5 ; 
end 
else ch : : ~ 
nextch : -= c h ; 
end; <nextch> 

FUNCTION GetMonth <vav f month: integer). Boolean; 

var n: integer; m: packed arraij 1.1.. 3 3 of char; result, booie : 
be(| in 

result : ~ FALSE; 

while not ( c. h in I .' ' A ' . . ' Z ' , '"* ' 1 ) do c h : = nextch; 
n : = 0; 

while (ch >= 'A') and (ch O 'Z'> do begin 
n : = n + 1 > 

if n <= 3 then mtnD : =■ ch, 
c h : = nextch; 
end; 
if n >= 3 then be () in 

n : = 0; 

i f m = ' JAN ' then n : » 1 

if m = 'FEB ' then n : = 3. 

if m ~ 'MAR ' then n : ~ 3. 

if m = 'APR ' then n := 4 

if <n - 'MAY' then n : - 3, 

if rn = 'JUN' then n : = 6.. 

if m = 'JUL' then n . = 7 

if m = 'AUG' then n : ~ 8. 

if m = 'SEP ' then n : = 9 

if m = 'OCT' then n : = 10 

if m = 'NOV then n : = 11 

if m = 'DEC' then n : -= IP 

if n > then begin result- 
end; 
GetMonth : = result; 
if ok then ok := result; 
end; -(.GetMonth} 



TRUE; fmonth := n; end; 
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304 
305 
306 

30 7 
308 
309. 
310 

31 1. 



314. 
315. 
316. 
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FUNCTION GetNum (var fnum: integer; flo, fhi: integer): Boolean; 
vav val: integer; Answer, result : Boolean; 
b e ti in 

while not (ch in I.' '0 ' . . '9 ', " w 3 ) do ch := nextch; 
val : «• 0; Answer := FALSE; 
while (ch >-• '0') and (ch O '9') do begin 

Answer : = TRUE; 

v.al ; •■- val *10 + ord (ch ) - ord < '0' ) ; 

ch : = nextch; 

end; 
fnum : - val; 

result :■■•■■• Answer and (Cval >= flo) and (val <= fhi)); 
OetNum : •-■ resu.1 t; 
if ok thun ok :- result; 



324 
325 
326 

32 B 
329. 
330. 
331 
332. 
333. 
334. 
335 
336. 

33 7. 
338. 
339 
340 
341. 
342 
343. 
344 
345. 
346. 



heijui <CvDateStr> 

«, = »ateh»tr> ix := 1 ; ch := nextch, ok : = TRUE; 

while not (ch in C ' A ' . . ' Z ' , '0 ' . . '9 ' , '"" 3 ) do ch := nextch; 

with dvcd do betjin 

;f ch in C '<)'. . '9 '3 
t h 1. :■ n b e <} in 

if GetNum (i« Ii31) then begin 
day : : = i ; 

if GetMonth (i) then begin 
month : •= i ; 

if GetNum (i, 0,2000) then year :- i mod 100; 
end; 
end; 
end 
eli;e he gin 

if GetMonth (i) then begin 
m o n t h : — i ; 

if GetNum <i, 1,31) then begin 
d a y : - i ; 
if GetNum (i, 0,2000) then year := i mod 100; 



if not ok then b e cj i n 

year := 0; month := 0; day :~ 0; end; 
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348. 
349. 
350. 
351. 
352. 
353. 
354. 
355. 
356. 
357. 
358 
359. 
360. 
361. 
362. 
363. 
364. 
365. 
366. 
367. 
368. 
369. 
370. 



< CCclklQinit 

■C CCclklO unit initialization 

■C 



PROCEDURE CCc lklOinit* 
beg :i. n 

ClkRead (Clklnfo); 
if not (CJ klnf o. month 
or not (CI k Info. day in 



Day of Week 

Month 

Day 

Hour 

Mine 

Sec s 

Tenth? 

LeapYear 



in CI. . 11*1) 
CI.. 313) then with Clklnfo do begin 



- Week Day ( ay sdate. day - sysdate. month, sy sdate. 
= sysdate month; 

- sy s date, day; 
a 0; 

■■■• 0; 



0; 

siisdate. 



ClkWrite (Clklnfo); 
end; 



{unit CCclkIO> 



year mod 4; 
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30 


31 


32 


152 


166 


239 


240 


275 


282 




328 
77 


337 


342 


360 


361 


362 


363 






OF. 
1 


88 


90 


104 


116 


152 


166 


192 


203 




363 


271 


277 


283 


319 


324 


335 


355 


356 


10 


50 


54 


77 


78 


125 


292 


309 






100 


30 


76 


328 


337 












1 1 


J 26 


239 


293 














12 


32 


88 


90 


127 


240 


241 


242 


294 


355 


13 


90 


















2 


53 


78 


88 


105 


117 


192 


284 






2000 


- !2B 


337 
















28 


B9 


















3 


1 06 


J 18 


.192 


271 


278 


281 


285 






20 


90 


















31 


31 


324 


33 5 


356 












32 


;v>4 


















4 

40 
5 


89 


J 07 


1 19 


147 


170 


286 


364 






90 


3 OS 


120 


287 












6 


:i 09 


121 


288 














7 


90 


1 10 


122 


289 












S 


' ;.?:.! 


390 
















9 


:i24 


391 
















AMPM 


:»35 


239 


24 6 














Ar-4SWEP 


303 


306 


308 


313 












CCCLKIO 


lt> 


















CCCLKIOIMI 


35 


352 
















CH 


254 


259 


263 


264 


266 


267 


274 


276 


278 




307 


309 


310 


319 


320 


322 








CLKDATE1 


39 


J 89 
















CLKDATE2 


4 


199 
















CLKDATE'J 


4 1 


211 
















CLKDATERCD 


28 


29 


44 


56 












CLKDY 


60 


129 


192 


303 


215 










CLKFORMAT 


98 


.180 


1.91 


202 


2 1 4 


226 


237 






CLKHR' 


61 


J 30 


227 














CLKINFO 


64 
365 


180 


191 


202 


214 


226 


237 


238 


354 


CLKMI 


62 


131 


227 


246 












CLKMO 


59 


114 


116 


1 1 7 


118 


1.19 


120 


121 


122 




125 


126 


127 


.192 


204 


216 








CLKPB 


22 


36 


37 


64 


98 










CLKREAD 


36 


160 


180 


191 


202 


214 


226 


237 


354 


CLKSC 


63 


J 32 


227 














CLKSTR10 


54 


57 


58 


59 












CLKSTR2 


53 


60 


61 


62 


63 


74 


99 


200 


212 


CLKSTR40 


21 


38 


39 


40 


41 


42 


43 


44 


256 


CLKTIME1 


42 


224 
















CLKTIME2 


43 


234 
















CLKWD 


57 


102 


104 


105 


106 


107 


108 


109 


110 


CLKWEEKDAY 


38 


178 
















CLKWRITE 


37 


142 


365 














CLKYR 


58 


113 


192 


204 


216 
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CPB 36 37 98 J 01 145 150 164 168 

CVDATESTR 44 255 

CVTINT 74 112 129 130 131 132 242 243 

D 86 90 

DATESTR 38 39 40 41 42 43 44 181 192 204 216 

227 246 31.9 

DAY 23 31 1.29 146 325 336 34 2 356 357 359 

DAYOFWEEK 23 103 146 357 

DRCD 44 321 

DY 200 203 204 212 215 216 

FHI 302 313 

FLO 302 313 

FMONTH 270 295 

FNUM 302 312 

GETMONTH 270 297 326 333 

GETNUM 302 314 324 328 335 337 

HOUR 24 130 239 240 24 1 242 243 360 

HR 235 242 243 244 24 6 

I 74 76 77 78 256 324 325 326 327 328 333 

334 335 336 337 

IX 256 261 263 319 

LEAPYEAR 24 147 170 364 

M 86 88 89 90 271 278 283 284 235 286 287 

288 289 290 291 292 293 294 

MINS 24 131 361 

MONTH 23 32 115 146 327 334 342 355 357 358 

N 271 275 277 278 281 282 ' 283 284 283 286 28/ 

288 289 290 291 292 293 294 295 

NEXTCH 258 267 274 279 305 310 319 320 

OK 256 298 315 319 341 

OSTIMDV 66 149 163 

PCLKDATERC 28 67 161 

POSDATE 67 167 

PSYSDATE 1.61 167 

RDLEN 51 164 

RESULT 271 273 295 297 298 303 313 314 315 

S 256 261 2.63 319 

SECS 24 132 362 

ST 74 76 77 78 

STRING 21 53 54 

SYSDATE 56 146 167 169 357 358 359 364 

TENTHS 24 363 

TIMER 143 149 150 151 152 161 163 164 165 166 

VAL 303 306 309 312 313 

WEEKDAY 86 89 146 357 

WRLEN 50 1 50 

Y 86 88 89 

YEAR 25 30 112 146 147 169 170 328 337 342 35 7 

364 

YR 99 112 113 
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{ 




2. 
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3. 


{ 




4. 


■c 




5. 


{ 




6. 


■c 




7. 


■c 




8. 


■c 
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1. < CCCRTIO. TEXT } 

CCCRTIO — Corvus CONCEPT CRT Control Unit 

(c) Copyright 1982 Corvus Systems; Inc. 
Ban Jose, California 

All Rights Reserved 

9. { 

10. -C v 1. 10-23-81 LEF Original unit 

11. -C v l. 1 01-16-82 PHB Modifications for LONGINTs 

12. -C v 1.2 04-29-82 LEF Add display CRT commands 

13. { v 1.3 06-19-82 LEF Fix GetByte, GetLongNum procedures 

14 { v 1. 4 08-23-82 LEF Fix GetByte to qet input from INPUT file 

15. -C 

16. { } 

17. {*R-> 
18. 

19. UNIT CCrrtlO; 

20. 

21. INTERFACE 

22. 

23. USES {*U CCLIB> CCdefn; 

24. 

25. CONST 

26. CCcrt inversion = '1.4'; 
27. 

28. TYPE 

29 CrtRdx = (BinRdx, OctRdx, DecRdx, HexRdx); 

30 CrtStatus = (Normal/ Escape/ Error); 
31. 

32. CrtCommand = (ErasEOS, {clear to end of screen} 

33. ErasEOL/ -Cclear to end of line> 

34. EraseALL/ -Cclear screen and home} 

35. CursorHomei {move cursor home} 

36. CursorUp, {move cursor up} 
37 CursorUoum; {move cursor down} 
38. CursorRightz {move cursor right} 
39 CursorLeft/ {move cursor left} 

40. CursorFtab, {forward tab} 

41. CursorBtab» {back tab} 

42. CursorOff, {display cursor OFF} 

43. CursorOn, {display cursor ON} 

44. CursorUndscr, {set underline cursor} 

45. Cursor Invrse, {set inverse cursor} 

46. InsertLine* {insert line at cursor} 

47. DeleteLinei {delete line at cursor} 

48. InsertChar. {insert character at cursor} 

49. DeleteChar; {delete character at cursor} 

50. InsertOff, {character insert mode OFF} 

51. InsertOn, {character insert mode ON} 

52. ScrollOff, {scroll mode OFF} 

53. ScrollOn, {scroll mode ON} 

54. PagingOff, {paging mode OFF} 
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55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88. 
89. 
90. 
91. 
92. 
93. 
94. 
95. 
96. 
97. 



Beep 

CrtTpgm 

CrtTvrs 

CrtTcpg 

CrtEcho 

CrtNdef 

CrtSdef 

CrtShft 

CrtBsup 

CrtTahd 

ExtCRT 

WndowLin 

WndowCol 



Pag ingOn, 

WrapOffi 

WrapOn/ 

GrfMode. 

TxtMode, 

InvrtScreen, 

VdoNor, 

Vdolnv, 

VdoNorUnd, 

VdoInvUnd, 

EchoOn, 

EchoOff. 

Ty pAhdGn- 

TypAhdOff, 

Uc a seOrt. 

UcaseOff , 

UsupOn, 

BsupOff, 

DefStrOn, 

DefStrOff, 

Def NumUn, 

DefNumOff, 

StartBeat, 

HeartBeat, 

Leadln); 
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aging mode 0N> 

ine u/rap OFF> 

ine wrap 0N> 

et graphics mode> 

et text mode} 

nvert screen video> 

et normal video) 

et inverse video} 

et normal underline video} 

et inverse underline video} 

cho user input ON} 

cho user input OFF} 

ype ahead allowed ON} 

ype ahead allowed OFF} 

on vert user input to uppercase ON} 

onvert user input to uppercase OFF} 

lank suppress user input ON} 

lank suppress user input OFF} 

utput default strings 0N> 

utput default strings OFT'} 

utput default numeric values ON} 

utput default numeric values OFF} 



char; {bell character} 

string C 16'J; {program name string} 

string C 16J; {program version number string} 

stringC80J; {copyright notice string} 

boolean; {echo input flag 

boolean; {output default number 

boolean; {output default string 

boolean; {convert to uppercase 

boolean; {blank suppress 

boolean; {type ahead allowed 

boolean; {TRUE if using an external terminal.} 

integer; {window size -lines} 

integer; {window size - columns} 



default 


- 


TRUE } 


default 


- 


TRUE } 


default 


- 


FALSE} 


default 


- 


TRUE } 


default 


- 


FALSE > 


default 


- 


TRUE 3 
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98. PROCEDURE CCtrtlOinit; 

99. FUNCTION Uppercase (ch: char): char; 

100. FUNCTION GetLongNum (var num. Longlnt): CrtStatus; 

101. FUNCTION GetNum (var num. integer): CrtStatusi 

102. FUNCTION GetString <var buf: String80): CrtStatus; 

103. FUNCTION GetByte: char; 

104. FUNCTION CvStrlnt (buf: StringSO; var num: integer): CrtStatus; 

105. FUNCTION CvStrLInt (buf: String80; var num: Longlnt): CrtStatus, 

106. PROCEDURE CvIntStr (num: integer; var buf: String80; rdx: CrtRdx); 

107. PROCEDURE CvL.IntStr (num: Longlnt; \/ar buf: String80; rdx: CrtRdx); 

108. PROCEDURE CrtAction (cmd: CrtCommand); 

109. PROCEDURE CrtTitle (txt: String80); 

110. PROCEDURE CrtPrompt (txt, opt: String80); 

111. PROCEDURE CrtPause (var ch: char); 

112. PROCEDURE GoToXY (x>y: integer); 

113. FUNCTION BellTone (timbre, byte; duration, period: integer): integer; 
114. 

115. {PROCEDURES/FUNCTIONS for compatibittj> 

116. PROCEDURE Crt <cmd: CrtCommand); 
117. 

118. 

119. IMPLEMENTATION 

120. 

121. -C*P> 
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122. 

123. 

124 

125. 

126. 

127 

128. 

129. 

130. 

131 

132. 

133. 

134 

135. 

136. 

137. 

138. 

139 

140. 

141. 

142. 

143. 

144. 

145. 

146. 

147. 

148. 

149 

150. 

151 

152. 

153. 

154. 

155. 

156. 

157. 

158. 

159. 

160. 

161. 

162. 

163. 

164. 

165. 



CONST 
bs 



= 08. {backspace character} 

= 13; {carriage return character) 

= 27; {escape character} 

= *7F; {backspace character} 



display: integer; 

BeatCnt: integer; 

Crtlnfo: packed array CCrtCommand 3 of char; 

Prefixed: array CCrtCommand 3 of boolean; 

hexstr: array CO. . 153 of char; 



FUNCTION OSextCRT: boolean; 

FUNCTION OStimDv: integer; 

FUNCTION OSdispDv: integer; 

FUNCTION pOSturWnd: pBytes; 



EXTERNAL 
EXTERNAL; 
EXTERNAL 
EXTERNAL 



FUNCTION pOSsysWnd (umdnbr: integer): pBytes; EXTERNAL 



{ Uppercase 

{ Convert character to upper case 



FUNCTION Uppercase {(ch: char): char}; 
bey in 
if ch IN C'a'.. 'z'3 then uppercase := chr ( ord ( ch )-ord ( 'a ' )+ord ( 'A ' ) ) 

else uppercase := ch; 
end; 



{ GoToXY 

{ Position cursor 



PROCEDURE GoToXY {(x,y: integer)}; 

begin 

if' ExtCRT 

then write (chr (esc), 
else write (chr(esc). 

end ; 



. chr(y+32), cbr(x+32) ) 
- chr ( x ), chr (y ) ); 
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- 


- Cross Reference Listing 
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198 


File ID: 


CCCRTIO. TEXT 




Page 


166. 


•c 








CrtActi on — — ~~ 






167. 


•c 








168. 


•c 


Perform CRT act 


ion 




169. 


■c 








170. 
171. 


•c 














172. 


PROCEDURE CrtActi 


on {(cmd: CrtCommand ) >; 




173. 




var cmdlen: integer; buf: packed array LI. 3.1 of char; 




174. 




beg in 






175. 




cmd len : - 0; 






176. 




if Pref i xedtcmd 1 then begin 




177. 




cmd len : = 


cmd len+1 ; 




178. 




buf Ccmdlen: :~ Crt Inf oCLead InD, 




179. 




endi 






180. 




case cmd of 






181. 




EchoOn 


CrtEcho 


= TRUE 


EchoOff 


CrtEcho 


= FALSE 




182. 




TypAhdOn 


CrtTahd 


= TRUE 


TypAhdOf f 


CrtTahd 


= FALSE 




183. 




UcaseOn 


CrtShft 


= TRUE 


UcaseOff 


CrtShft 


= FALSE 




184. 




BsupOn 


CrtBsup 


= TRUE 


Bi-upGff 


CrtBtup 






185. 




DefStrOn 


CrtSdef 


= TRUE 


DefStrOff 


CrtSdef 


= FALSE 




186. 




Def NumOn 


CrtNdef 


= TRUE 


DefNumOff- CrtNdef 


= FALSE 




187. 




StartBeat 


begin BeatCnt := 1; turitelrw exit (CrtA 


: t i o n ) ; end.. 


188. 




HeartBeat 


if BeatCnt > WridowCo 1 -1 




189. 






then begin 




190. 






CrtAction (StartBeat); exit (Cr 


bAction); end 


191. 






else BeatCnt := BeatCnt+1; 




192. 




VcloNor 






193. 




Vdolnv 






194. 




VdoNorUnd 






195. 




VdoInvUnd 


begin 




196. 






cmdlen : - cmdlen+J; 




197. 






buf CcmdlenD : = 'G'; 




198. 






end; 




199. 




end 


{case} 




200. 




if CrtlnfoCcm 


JD O chr(OO) then begin 




201. 




cmd len . = 


cmdlen+1; 




202. 




buf Ccmdlei 


t3 : = CrtlnfotcmtU; 




203. 




if extcrt 


then UNITWRITE ( 1, buf » cmd len, 0, 12) 




204. 






else UNITWRITE ( d isp lay , buf , cmd len. 0, 12) 




205. 




e n d ; 






206. 




end; 






207. 










208. 










209. 


{ 














210. 


■c 


Calls CrtAction 


(for compatibility) 




211. 
212. 


















213. 


PROCEDURE Crt {(c<i 


nd: CrtCommand ) >; {same as CrtAction> 




214. 




begin CrtAction (cmd); end; 




215. 










216. 










217. 


•C*P> 
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218. -C CvLlntStr ■ ■ ■ > 

219. < Convert long integer value to Bin» Oct, Dec/ or Hex string value 

220. -C > 

221. 

222. PROCEDURE CvLlntStr {(num: longint; var buf: StringBOi rdx: CrtRdx)}; 

223 vav x,idx: integer; signich: char; 

224. numrcd. record case integer of 

225 1: (li: longint); 

226 2: <bt: packed array TO. .31] of 0. .1); 

227 end; 
228. 

229 PROCEDURE getbits tn: integer); 

230. var i,nl,n2: integer; 

231. begin 

232. nl : -- idx-n+1; n2 :« idx; 

233. if nl < then nl : ~ 0; 

234. x : ~ 0; 

235 For j : =- nl to n2 do 

236. x := x*2 + numrcd. btC (( i div 8)*8)+(7- ( i mod 8))3; 

237 idx : «• idx-n; 

238. end; 

239. 

240. begin ' 

241. buf : - ' ' ; t- i gn : - ' ' ; 

242. if num •■= O 

243. then begin buf : - '0'; exit (CvLlntStr); end; 
244 if rdx=DerRdx then begin 

245. if num < then begin 

246. if num = $80000000 then begin 

247 buf := '-2147483648'; exit (CvLlntStr); end; 

248 «■• ign : - '-'; num : = O-num; 

249 end; 

250. while num O do begin 

251 x - num MOD 10; num := num DIV 10; 

252 rh = <:hr ( ord ( '0 ' ) + x ) ; 

253 buf = concat (' ',buf)> bufCU : - ch; 
254. end; <while> 

255 if sign O ' 'then begin 

256 buf = concat (' ',buf); bufElU :» sign; end; 

257. exit (CvLlntStr )i 

258. end; 

259. <%P> 
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260. 
261. 
262. 
263. 
264. 
265. 
266. 
267. 
268. 
269 
270. 
271. 
272. 
273. 
274. 
275. 
276. 
277. 
278. 
279. 
280! 
281. 
282. 
283. 
284 
285 
286 
287. 
288. 
289. 
290. 
291. 
292. 



numrcd. li : = num, idx : =* 31; 
repeat 

case rdx of 

BinRdx. getbits (1); 
OctRdx: getbits (3); 
HexRdx: getbits (4)i 
end; 
if x > 9 then ch :* chr <ord< 'A ' > + x-lO> 

else ch := chr ( ord ( '0 ' )+x ); 
buf : = concat (' ',buf>; bufT13 :» ch; 
until idx C 0; 
while buftll » 'O' do delete (buf, 1,1); 
end; 



■C CvIntStr 

■C Convert integer value to Bin, Oct, Dec, or Hex string value 

< 

PROCEDURE CvIntStr -G(num: integer; var buf: String80; rdx: CrtRdx)}; 
var numrcd: record case integer of 
1: (1: longint); 

2: (w: array CO. .13 of integer}; 
end; 
b e ci i n 
if rdx = De(.Rdx 

then numrcd. 1 := num 

else with numrcd do begin 1 : = 0; uiElU : = num; end; 
CvLIntStr (numr c d. 1, buf , rdx ) ; 
end; 
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293. -C CvStrLInt 

294. -C 



295. 

296. FUNCTION CvStrLInt -CCbuf: String80 

297. 

298. 

299. 

300. begin num 



var base/ i< inc, mult: integer; 
PROCEDURE cnverr; 



ar num: Longlnt): Cr tStatus>; 



0; CvStrLInt := Error; exit (CvStrLInt); end; 



beg in 

while po«i(' ',buf) O do delete (buf,pos(' ',buf),l); 
num : = 0; mult := 1; base := 10; 
if not (bufCn IN C'O'.. '9']) then begin 
case bufCl.1 of 



'+ ' 



'*', ' ! 



'"/. ' 



10; 
16; 
8; 



end; 



301. 
302. 
303. 
304. 
305. 
306. 
307. 
308. 
309. 
310. 
311. 
312. 
313. 
314. 
315. 
316. 
317. 
318. 
319. 
320. 
321. 
322. 
323. 
324. 
325. 

326. -C CvStrlnt 

327. < 

328. 

329. FUNCTION CvStrlnt {(buf: String80; var num: integer): Cr tStatus>, 

330. var li: Longlnt; 

331. beyin 

332. CvStrlnt := CvStrLInt <buf,li); 

333. num : = ord< 1 i ) ; 

334. end; 
335. 

336. 

337. <*P> 



base 
base 
base 

begin base := 10; mult .= 
end; ■£ c a s e > 
delete (buf, 1,1); 
end; 
for i : = 1 to length(buf) do begin 

if not (bufCiil IN Z '0 ' . . '9 ' , ' &' . . 'F ' 1) then cnverr; 
inc : = ord(buf CiD)~48; 

if inc > 9 then inc :» inc: -7; < 65-48 = 17, 17-7 -■ 10 > 
if not (inc < base) then cnverr; 
num : = num * base + inc; 
end; 
num : = num * mul t; 
CvStrLInt := Normal, 
end; 
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338. { ReadString > 

339. < > 

340. 

341. FUNCTION ReadString War buf: StringHO; 

342. BsupFg, Shf tFg, PrmpF'g, NumOnly : boolean): CrtStatus; 

343. var ocl: char; i : integer; validnum: boolean; 

344. begin 

345. if ShftFg then 

346. for i := 1 to length(buf) do bufCi] := uppercase (bufCiJ); 

347. if BsupFg then 

348. while posC ',buf) O O do delete (buf,pos(' '.buf). 1); 

349. if PrmpFg then begin 

350. write (buf); 

351. for i = 1 to leng th ( buf ) s do write (chr(bs)); 

352. end; 

353. ReadString := Normal; 

354. if not CrtTahd then unitclear (1); 

355. read (c); 

356. if EOLN then exit (ReadString); 

357. i : = 0; buf : = ' '; CrtAction (ErasEOL); 

358. repeat 

359. if not CrtEcho then 

360. if not (ord(c) in Cdel<bsl) then 

36 1. write (chr(bs), ' ', chr(bs)); 

362. case ord(c) of 

363. del, bs: begin <bs> 

364. if i > O then begin 

365. delete (buf.i.l)i i : = i-1; 

366. if CrtEcho then write (chr(bs),' '.chr(bs)); 

367. end; 

368. c : = chr(O); 

369. end; 

370. esc: begin {esc} 

371. ReadString := ESCAPE; exit (ReadStr ing ) , 

372. end; 

373. end; {case} 

374. if NumOnly and ( c <> chr (0)) then begin 

375. validnum := FALSE; 

376. c := uppercase (c); 

377. if i = 

378. then begin 

379. if c in CO' . . '9 ','#', '%' , ' \' , "/. ','+', '-'1 then beg' 

380. validnum : = TRUE; 

381. c 1 : = c; 

382. if cl in ['0'..'9'] then cl := '+'; 

383. end; 

384. end 

385. -C*P> 
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386. 
387. 
388. 
389 
390. 
391. 
392. 
393. 
394. 
395 
396 
397. 
398 ^ 
399 
400 
401 
402. 
403. 
404 
405 
406. 
407. 
408. 
409. 
410 
411. 
412. 
413. 
414. 
415. 
416. 
417. <%P> 



else begin 

case cl of 

'X' 
'■*■*. '-', '#' 



if c in C'O'..'7'J then validnum 
if c in C'O'.. '9 '3 then validnum 
if c in CO'. . '9', 'A'. . 'F'3 

then validnum 



TR! 
TR» 



end i <ca«ie> 



end* 



if not validnum then begin 

write <chr(bs)* ' ', chr <bs ) » beep )» 

c :- chr(O); 
end; 

if i ^ 80 

then begin 

write (beep ); 

if CrtEcho then write <chr(bs)*' Schr(bs)); 
end 
else if c <> chr<0) then begin 
buf := cone at <buf# ' '); 
i :* i+ii bufCil : « a 
end; 
r<»ad <c); 
until EOLN; 
if ShftFg then 

for i :~ 1 to length (buf) do bufCi3 : = uppercase (bufCil); 
if BsupFg then 

while pos< ' ', buf) O O do delete <buf#pos<' Sbuf)>l>; 
end. 
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418. < GetLongNum > 

419. < > 

420. 

421. FUNCTION GetLongNum Hvar num: LongZnt): CrtStatus>; 

422. var snum: String80; 

423. begin 

424. if not CrtNdef then num := 0; 

425. CvLIntStr (num, snum< DecRdx), 

426. if ReadString ( snum; TRUE, TRUE, CrtNdef * TRUE) = Escape then begin 

427. num := 0; GetLongNum := Escape; exit (GetLongNum); end; 

428. GetLongNum := CvStrLlnt (snum/ num); 

429. end; 
430. 

431. 

432. -C GetNum > 

433. -C > 

434. 

435. FUNCTION GetNum {(var num. integer): Cr tStatus}; 

436. var li: Long In t; 

437. begin 

438. li : = num; 

439. GetNum := GetLongNum (li); 

440. num : " ord ( 1 i ) ; 

441. end; 
442. 

443. 

444. -C GetByte > 

445. -C > 

446. 

447. FUNCTION GetByte -C. char}; 

448. var ch: char; 

449. begin 

450. if not CrtTahd then unitclear (1); 

451. read (ch); 

452. if EOLN then ch : « ' ' ; 

453. if EOF then ch : - " ' ; 

454. if ch - chr(esc) then ch : - '!'; 

455. if not CrtEcho then write (chr(bs), ' ',chr(bs)); 

456. GetByte : -- uppercase (ch); 

457. end; 
458. 

459. 

460. -C*P> 
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461 i. GetStrmg • > 

462. < ■ > 

463 

464 FUNCTION OetString <(var buf: StringBO): Cr tStatus >; 

465 be (jin 

466 if not. CrtSrlef then buf : ; = '' ; 

467 GetStrinci :=ReadString ( buf , CrtBsup , CrtShft, CrtSdef, FALSE); 

468 end; 
469 



4 ■•'! 1. CrtTJ tl<: 



474 PROCEDURE Cr (.Title < ( t x t : Str ing80 > >; 

475 b ■?[.! i. n 

4'6 GoToXY (0,0); CrtAction (EraseALL); 

4 7 7 C t • t A r t x o n ( Vdo)nv)i 

478 GoToXY <O,0>; CrtAction (ErasFOL); 

4 7C ? write ( '■ ', Cr tTpgm, ' f 'iCrtTvrs. '3: '<txt); 

.480 Goi'oXV (0,1); CrtAction (ErasFOL); 

481 write < ' ', Crt'l'cpy ) ; 

482 C r tAction (VdoNor); 

483 GoToXY (0,2); CrtAct:. on (ErasFOL); 

484 GoToXY (0,3); 

485 end; 
486 

497 

488 i. CrtPrompt ---- 

437 { 

490 

491 PROCEDURE CrtPrompt <<txt, opt: String80)>; 

492. beuin 

493 GoToXY ( 0, Wr«d owL in- 1 ) ; 

494 if length <txt) > then write (txt) 

495. else write ('Enter option'); 

496 if length(opt) <> then write (' C ' , op t, ' 3 ' > ; 

497. write (': '), CrtAction (ErasFOL); 

498 enil; 

499 

500 

501 i*P> 
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502 < CrtPause > 

503. t > 

504. 

505. PROCEDURE CrtPause <(ch: char)>; 

506 var u»p tr 1, u>p tr2: pBytes; line: integer; 

507 be g in 

508 if extcrt 

509 then begin 

510. line := WndowLirw 

511. OoToXY (WndowCol-27, line) 

512. end 

513. else begin 

514. )ine - 1; 

515. uiptrl : -= pQScurWnd; 

516. wptr2 .= pOSsysWnd (2); 

517. UnitStatus < d i sp lay , up tr2 A < 3) ; 

518. OoToXY (Oi line); 

519. end; 

520. write ( 'PreiiS <space!> to continue '); CrtAction (ErasEOL); 

521. CrtEcho := FALSE; ch := GetByte; CrtEcho := TRUE; 

522. GoToXY (0, line); CrtAction (ErasEOL); 

523 if not extcrt then UnitStatus ( d i sp lay , up tr 1""< 3 ) ; 

524. end; 

525. 

526. 

527. <. Bel Hone > 

528 -C input (timbre: byte; (on and off of the speaker 

529. < input duration: integer; {.nmbr of 50 ms ticks to leave speaker ! 

530 -C input period: integer): -{time between speaker tones 

531 -C result inteqer); -CIORESULT} 

532. < : > 

533. 

534. FUNCTION Bell Tone; 

535. var bellPB: record 

536. per: integer; tmb: byte; fil: byte; dur: integer; 

537. end; 

538. TimerUnit: integer; 

539. begin 

540. TimerUnit : = QStimDv; 

541. with bellPB da begin 

542. per := period; tmb := timbre; fil := 0; dur : = duration; end; 

543. UnitStatus ( TimerUn i t. be 1 1PB, 0) ; 

544. BellTone := IORESULT; 

545. end; 
546. 

547. 

548. {*P> 
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549. 
550. 
551. 
552. 
553. 
554. 
555. 
556. 
557. 
558. 
559. 
560. 
561. 
562. 
563. 
564. 
565. 
566. 
567. 
568. 
569. 
570. 
571. 
572. 
573. 
574. 
575. 
576. 
577. 
578. 
579. 
580. 
581. 
582. 
583. 
584. 
585. 
586. 
587. 
588. 
589. 
590. 
591. 
592. 
593. 
594. 
595. 
596. 
597. 
598. 
599. 
600. 
601. 
602. 
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{ CCcrtlOinit — 

{ Unit initialization 

■C 



Beep 

CrtEcho 

CrtTahd 

CrtShft 

CrtBsup 

CrtSdef 

CrtNdef 

CrtTpgm 

CrtTcpy 

ExtCRT : 

d isp lay 



= TRUE; 
= TRUE; 
= TRUE; 
= FALSE; 
= FALSE; 
= TRUE; 
'pgmi d ' 



PROCEDURE CCcrtlOinit; 

type WinStatBuff = record xhome, yhome, xlen, y J en: 
var i: integer; ts: String32; uis: WinStatBuff; 
begin 

ts":= '0123456789ABCDEF'; 
for i:= to 15 do hexstrCi] := tsCi + Hi; 
chr(7); 

{input echo flag> 
{type ahead allowed flag> 
{convert to uppercase flag} 
^suppress spaces f 1 a g > 
{default string processing} 
{default number processing} 
CrtTvrs : = '0. 0'; 
= '(c) Copyright 1983 Corvus Systems, Ir 
■■ OSextCRT; 

» 0; WndowLin := 23; WndowCol : = 79; 
if not ExtCRT then begin 
display : = OSdispDv; 
UnitStatus ( d isp lay , ws, 5) ; 
if ioresult = then begin 

WndowLin : = ws. y len; WndowCol := ids. xlert, 
end; 



xed CLead In] 

xedLHr>artBeat3 
ixedCStartBeatJ 
ixedL"Etho(Jn3 
ixedCEchoOff 3 

xedCTypAhdOnD 
ixedCTypAhdOff 3 
ixedLUcaseOnJ 

xedCUcaseOff 3 
i xedCBsupOn3 

xedCBsupOff 3 
ixedCDefStrOn3 

xedCDefStrOff 3 

xedL"DeflMumOn3 
ixedCDefNumOff 3 



integer; end; 



Crtlnf oCLeadlnll 


= 


chr (esc 


); Prefi 


Crtlnf oCHeartBeat 3 


= 


'. '; 


Pref i 


CrtInfoCStartBeat3 


=.- 


'. '; 


Prefi 


CrtInfoCEchoOn3 


= 


chr (00) 


Prefi 


CrtlnfoCEchoOff 3 


- 


chr(OO) 


Prefi 


Crtlnf oCTyp Ah dOnD 


= 


c h r ( 00 ) 


Prefi 


CrtlnfoCTypAhdOf f 3 


:= 


chr (00) 


Prefi 


CrtlnfoCUcaseOn] 


= 


chr(OO) 


Prefi 


CrtlnfoCUcaseOff 3 


= 


chr (00) 


Prefi 


Crtlnf oCBsupOnD 


= 


chr(OO) 


Prefi 


CrtlnfoCBsupOff 3 


■- 


chr (00) 


Prefi 


CrtInfoCDefStrOn3 


XT 


c h r ( 00 ) 


Prefi 


CrtlnfoCDefStrOf f 3 


= 


chr(OO) 


Prefi 


CrtInfoCDefNumOn3 


~ 


chr (00) 


Prefi 


CrtlnfoCDefNumOf f 3 


= 


chr(OO) 


Prefi 


if ExtCRT 








then begin 









= FALSE 

=? FAL.SE 

* FALSE 

= FALSE 

= FALSE 

= FALSE 

= FAL.SE 

= FALSE, 

= FALSE 

= FALSE 

= FALSE 

= FALSE 

= FALSE 

= FALSE 

= FALSE 



CrtInfoCEraseALL3 

CrtInfoCErasE0S3 

CrtInfoCErasEOL3 

Crtlnf oCCurs or Home 3 
Crtlnf oC Cur sorUp 3 
Crtlnf oL" Curs or Down 3 



chr(30) 
chr(ll) 
chr(10) 



Pref i xed CEraseALL] 
Prefi xedCErasE0S3 
Pref ixedCErasE0L3 

Prefi xedCCursorHome3 
Prefi xedC Cursor Up 3 
Prefi xedCCursorDown3 
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603. 
604. 
605. 
606. 
607. 
608. 
609. 
610. 
611. 
612. 
613. 
614. 
615. 
616. 
617. 
618. 
619. 
620. 
621. 
622. 
623. 
624. 
625. 
626. 
627. 
628. 
629. 
630. 
631. 
632. 
633. 
634. 
635. 
636. 
637. 
638. 
639. 
640. 
641. 
642. 
643. 
644. 
645. 
646. 
647. 
648. 
649. 
650. 
651. 
652. 
653. 
654. 
655. 
656. 
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CrtInfoCCursorRight3 
Crtlnf o C Cur sorLef t] 
Crtlnf oCCursorFtab 3 
Crtlnfo L"CursurBtab3 

CrtlnfoC InsertLineJ 
CrtInfoCDeleteLine3 
CrtlnfoC InsertCharJ 
CrtlnfoC De let eChar 3 



February 1, 1983 
Page 15 



Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 
Crtlnfo 



CCursorUndscr 3 
[CuT'Sorlnvrse] 
CCursorOf f 3 
[CursorOn] 
CScrollOff3 
CScrollOn3 
CPagingOf f 3 
CPag ingOn3 
CWrapOff 3 
CWrapUn] 
CInsertOff 3 
C InsertOn] 



Crtlnf oCGrf Mode 3 
Crtlnf oCTxtMode 3 
CrtlnfoC In vrtScreenll 
Crtlnf oCVdoNor3 
CrtInfoCVdoInv3 
CrtlnfoCVdoNorUndD 
CrtlnfoCVdoInvUnd] 

end 

alse begin 

Crtlnf oCEraseALL] 
Crtlnf oCErasEOS3 
Crt Info CErasEOL:i 

CrtlnfoECursorHome] 
CrtlnfoC Cur sorUp3 
Crtlnf of Cursor Down 3 
CrtInfoCCursorRight3 
Crtlnf oCCursorl_eft3 
CrtInfoCCursorFtab3 
Crtlnf oCCursorBtab3 

Crtlnf oC Ins ertLineD 
Crtlnf oC Del eteLine] 
Crt Inf oC InsertChar 3 
Crtlnf oC Del eteChar 3 

Crt Info CCursorUndscr 3: 
CrtInfoCCursorlnvrse3: 
Crtlnf o CCursorOf f 3 



chr(12> 
chr(08) 
chr(09) 



'E'i 
'R', 



chr(OO) 
chr(OO) 
c h r ( 00 ) 
chr (00) 
chr(OO) 
c h r ( 00 ) 
c h r ( 00 ) 
chr(OO) 
chr(OO) 
chr(OO) 
c h r ( 00 ) 
chr(OO) 

chr(OO) 
chr (00) 
chr (00) 
'O'i 
'4 ' , 



'J' 
'Y' 



Pref i xedCCursorRight3 
Pref i xedCCursorLef t3 
PrefixedCCursorFtab3 

PrefixedCCurcorBtab] 

Pref i xedClnsertLine3 
Pref ixedCDe 1 eteLine 3 
PrefixedC InsertChar 3 
Pref ixedCUeleteChat 3 



Pref i x 
Prefix 
Pref i x 
Prefix 
Prefix 
Prefix 
Pref i x 
Pref i x 
Prefix 
Prefix 
Pref i x 
Pref i x 



?dCCur 

jdCCur 

?dCCur 

JdCCur 

jdCScr 

fdCSc 

?dCPag 

?dCPag 

?dCWra 

;dCWra 

?dCIns 

?dCIns 



sorUndsc r 3 
sor Invrse 3 
sorOff 3 
sorOn] 
ollOf f 3 
ollOn3 
ingOff 3 
ingDn3 
pOff 3 
pOn3 
ertOf f 3 
er tOn3 



Pref ixedCGrfMode3 
Pref ixedCTxtMode3 
PrefixedC In vrtScreen3 
Pref ixedCVdoNorJ 
Pref ixedCVdoInv3 
Pref ixedCVdoNorUnd3 
Pref i xedCVdoInvUnd 3 



Pref i xedCEraseALL 3 
Pref ixedCErasE0S3 
Pref ixedCErasE0L3 

Prefi xedCCursorHome3 
Pref ixedCCursorUp3 
Prefixed CCur sorDoun 3 
PrefixedCCursorRight3 
Prefi xedC Curs or Left3 
Pref i xedCCursorFtab 3 
PrefixedCCursbrBtab3 

Pr ef i xed C InsertLine 3 
Pref i xedCDel eteLine 3 
Pref i xed C InsertChar 3 
Pref i xed CDeleteCh ar 3 

Prefi xed CCursorUndscr 3: 
Prefi xed CCursor Invrse 3: 
Pref i xed CCursorOf f 3 
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657. 
658 
659. 
660 
66 1 . 
662 
663 
664 
66 5. 
666 
667 
666 
669 
670. 
671 



674. 
6 75 
676 
677 
678. 
6 7«? 



CrtlnfoCCursorOniJ 
CrtlnfoTScroUOff 3 
CrtlnfoCScrollOnD 
Crtlnf oCPag ingOf f 3 
CrtlnfoCPag ingQn3 
CrtlnfoCWrapOff 3 
Crt.InfoCWrapOn3 
CrtlnfoCInsertOff 3 
Crtlnf oC I riser tOn 3 

CrtlnfofGrfModea 
Crtlnf oCTxtModel 
CrtlnfoCInvrtScreen] 
CrtlnfoCVdoNorl 
CrtInfoCVdoInv3 
Crtlnf ofVdoNorUnd} 
Crtlnf oL'VdoInvUnd 3 

end; 



Prefi 
Prefi 
Prefi 
Prefi 
Prefi 
Prefi 
Prefi 
Prefi 
Prefi 



xedCCursorOn3 
xedCScrollOff 3 
xedCScrollQn3 
xedCPagingOf f 1 
xedCPagingOn3 
xedCWrapOff 3 
xedCWrapOn3 
xedCInsertOff 3 
xedCInsertOn3 



Pref ixedCGrfMode3 
Pref ixedCTxtMode3 
Prefi xedCInvrtScreenl 
Pref ixedCVdoNor3 
Pref i xedCVdoInv3 
Pref ixedCVdoNorUnd3 
Pref ixedCVdoInvUnd3 
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234 


242 


245 


248 


250 


348 


357 


364 


368 


374 


476 


478 


480 


483 


484 


543 


358 


569 


573 




583 


586 


587 


588 


589 


617 


618 


619 


620 


621 


201 


203 


225 


226 


232 


282 


287 


303 


304 


305 


351 


354 


365 


406 


411 
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133 J 75 203 204 226 233 

270 282 287 300 303 304 

377 396 404 413 424 427 

493 494 496 518 522 542 

00 200 580 581 582 583 584 
390 591 613 614 615 616 
622 623 624 626 627 ^28 

08 123 604 

09 605 646 

1 173 177 187 188 191 196 
253 256 263 269 271 281 
306 310 312 314 346 348 
413 450 480 493 314 358 

10 251 267 304 307 310 602 

11 601 

12 203 204 603 

13 124 

15 J 33 358 

16 83 84 308 

2 226 J '36 282 483 516 
23 S69 

27 125 Jill 

3 173 264 484 517 523 

30 600 

3 1 226 I '60 

32 160 

4 265 
48 316 

5 :>?2 

7 236 317 559 

79 369 

7F 126 ' 

8 236 309 

80 85 399 
80000000 246 

9 267 317 

BASE 297 304 307 308 309 310 318 319 

BEATCNT 130 187 188 191 

BEEP 82 395 401 559 

BELLPB 335 541 343 

BELLTONE 113 534 544 

BINRDX 29 263 

BS 123 351 360 361 363 366 393 402 433 

BSUPFG 342 347 412 

B SUP OFF 72 184 587 

BSUPON 71 184 586 

BT 226 236 

BUF 102 104 105 106 107 173 178 197 202 203 204 

241 243 247 253 256 269 271 288 303 303 306 

312 314 315 316 332 341 346 348 330 351 357 

365 405 406 411 413 466 467 

BYTE 113 336 

C 343 355 360 362 368 374 376 379 381 388 389 

390 396 404 406 408 
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CI 


343 


381 


382 


387 
















CCCRTIO 


19 






















CCCRTIOINI 


98 


553 




















CCCRTIOVER 


26 






















CCDEFN 


23 






















CH 


99 


111 


148 


149 


223 


252 


253 


267 


268 


269 


448 




451 


452 


453 


454 


456 


521 












CMD 


108 


116 


176 


180 


200 


202 


214 










CMDLEN 


173 


175 


177 


178 


196 


197 


201 


202 


203 


204 




CNVERR 


299 


315 


318 


















CR 


124 






















CRT 


116 


213 




















CRTACTION 


108 
483 


172 
497 


187 
520 


190 
522 


214 


357 


476 


477 


478 


480 


482 


CRTBSUP 


90 


184 


467 


563 
















CRTCOMMAND 


32 


108 


116 


131 


132 














CRTECHO 


86 


181 


359 


366 


402 


455 


521 


560 








CRTINFO 


131 


178 


200 


202 


577 


578 


579 


580 


581 


582 


583 




584 


585 


586 


587 


588 


589 


590 


591 


596 


597 


598 




600 


601 


602 


603 


604 


605 


606 


608 


609 


610 


611 




613 


614 


615 


616 


617 


618 


619 


620 


621 


622 


623 




624 


626 


627 


628 


629 


630 


631 


632 


637 


638 


639 




641 


642 


643 


644 


645 


646 


647 


649 


650 


651 


652 




654 


655 


656 


657 


658 


659 


660 


661 


662 


663 


664 




665 


667 


668 


669 


670 


671 


672 


673 








CRTNDEF 


87 


186 


424 


426 


565 














CRTPAUSE 


111 


505 




















CRTPROMPT 


110 


491 




















CRTRDX 


29 


106 


107 


















CRTSDEF 


88 


185 


466 


467 


564 














CRTSHFT 


89 


183 


467 


562 
















CRTSTATUS 


30 


100 


101 


102 


104 


105 


342 










CRTTAHD 


91 


182 


354 


450 


561 














CRTTCPY 


85 


481 


567 


















CRTTITLE 


109 


474 




















CRTTPGM 


83 


479 


566 


















CRTTVRS 


84 


479 


566 


















CURSORBTAB 


41 


606 


647 


















CURSORDOWN 


37 


602 


643 


















CURSORFTAB 


40 


605 


646 


















CURSORHOME 


35 


600 


641 


















CURSOR I NVR 


45 


614 


655 


















CURSORLEFT 


39 


604 


645 


















CURSOROFF 


42 


615 


656 


















CURSORON 


43 


616 


657 


















CURSORRIOH 


38 


603 


644 


















CURSORUNDS 


44 


613 


654 


















CURSORUP 


36 


601 


642 


















CVINTSTR 


106 


279 




















CVLINTSTR 


107 


222 


243 


247 


257 


288 


425 










CVSTRINT 


104 


329 


332 


















CVSTRLINT 


105 


296 


300 


322 


332 


428 












DECRDX 


29 


244 


285 


425 
















DEFNUMOFF 


76 


186 


591 
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DEFNUMON 


75 


186 


590 














DEFSTROFF 


74 


185 


589 














DEFSTRON 


73 


185 


588 














DEL 


126 


360 


363 














DELETECHAR 


49 


611 


652 














DELETELINE 


47 


609 


650 














DISPLAY 


129 


204 


517 


523 


569 


571 


572 






DUR 


536 


542 
















DURATION 


113 


542 
















ECHOOFF 


66 


181 


581 














ECHOON 


65 


181 


580 














ERASEALL 


34 


476 


596 


637 












ERASEOL 


33 


357 


478 


480 


483 


497 


520 


522 


598 639 


ERASEOS 


32 


597 


638 














ERROR 


30 


300 
















ESC 


125 


160 


161 


370 


454 


577 








ESCAPE 


30 


371 


426 


427 












EXTCRT 


92 


159 


203 


508 


523 


568 


570 


593 




FIL 


536 


542 
















GETBITS 


229 


263 


264 


265 












OETBYTE 


103 


447 


456 


521 












GETLONGNUM 


100 


421 


427 


428 


439 










GETNUM 


101 


435 


439 














GETSTRING 


102 


464 


467 














GRFMODE 


58 


626 


667 














HEARTBEAT 


78 


188 


578 














HEXRDX 


29 


265 
















HEXSTR 


.133 


558 
















I 


230 


235 


236 


297 


314 


315 


316 


343 


346 351 357 




364 


365 


377 


399 


406 


411 


555 


558 




IDX 


223 


232 


237 


260 


270 










INC 


297 


316 


317 


318 


319 










INSERTCHAR 


48 


610 


651 














INSERTLINE 


46 


608 


649 














INSERTOFF 


50 


623 


664 














INSERTON 


51 


624 


665 














INVRTSCREE 


60 


628 


669 














L 


281 


286 


287 


288 












LEAD IN 


79 


178 


577 














LI 


225 


260 


330 


332 


333 


436 


438 


439 


440 


LINE 


506 


510 


511 


514 


518 


522 








LONG I NT 


100 


105 


107 


225 


281 


330 


436 






MULT 


297 


304 


310 


321 












N 


229 


232 


237 














Nl 


230 


232 


233 


235 












N2 


230 


232 


235 














NORMAL 


30 


322 


353 














NUM 


100 


101 


104 


105 


106 


107 


242 


245 


246 248 250 




251 


260 


286 


287 


300 


304 


319 


321 


333 424 425 




427 


428 


438 


440 












NUMONLY 


342 . 


374 
















NUMRCD 


224#* 


236 


260 


280 


286 


287 


288 






OCTRDX 


29 


264 
















OPT 


110 


496 
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OSDISPDV 


137 


571 




















OSEXTCRT 


135 


568 




















OSTIMDV 


136 


540 




















PAGINOOFF 


54 


619 


660 


















PAGINGON 


55 


620 


661 


















PBYTES 


138 


139 


506 


















PER 


536 


542 




















PERIOD 


113 


542 




















POSCURWND 


138 


515 




















POSSYSWND 


139 


516 




















PREFIXED 


132 


176 


577 


578 


579 


580 


581 


582 


583 


584 


585 




586 


587 


588 


589 


590 


591 


596 


597 


598 


600 


601 




602 


603 


604 


605 


606 


608 


609 


610 


611 


613 


614 




615 


616 


617 


618 


619 


620 


621 


622 


623 


624 


626 




627 


628 


629 


630 


631 


632 


637 


638 


639 


641 


642 




643 


644 


645 


646 


647 


649 


650 


651 


652 


654 


655 




656 


657 


658 


659 


660 


661 


662 


663 


664 


665 


667 




668 


669 


670 


671 


672 


673 












PRMPFG 


342 


349 




















RDX 


106 


107 


244 


262 


285 


288 












READSTRING 


341 


353 


356 


371 


426 


467 












SCROLLOFF 


52 


617 


658 


















SCROLLON 


53 


618 


659 


















SHFTFG 


342 


345 


410 


















SIGN 


223 


241 


248 


255 


256 














SNUM 


422 


425 


426 


428 
















START8EAT 


77 


187 


190 


579 
















STRING 


83 


84 


85 


















STRING32 


f»55 






















STR ING80 


102 


104 


105 


106 


107 


109 


no 


341 


422 






TIMBRE 


J 13 


542 




















TIMERUNIT 


538 


540 


543 


















TMB 


536 


T>42 




















TS 


555 


557 


558 


















TXT 


109 


110 


479 


494 
















TXTMODE 


59 


627 


668 


















TYPAHDOFF 


68 


182 


583 


















TYPAHDON 


67 


J 82 


582 


















UCASEOFF 


70 


183 


585 


















UCASEON 


69 


183 


584 


















UPPERCASE 


99 


146 


148 


149 


346 


376 


411 


456 








VALIDNUM 


343 


375 


380 


388 


389 


391 


394 










VDOINV 


62 


193 


477 


630 


671 














VDQINVUND 


64 


195 


632 


673 
















VDONOR 


61 


192 


482 


629 


670 














VDONORUND 


63 


194 


631 


672 
















W 


282 


287 




















WINSTATBUF 


554 


555 




















WNDNBR 


139 






















WNDOWCOL 


94 


188 


511 


569 


574 














WNDOWLIN 


93 


493 


510 


569 


574 














WPTR1 


506 


515 


523 


















WPTR2 


506 


516 


517 


















WRAP OFF 


56 


621 


662 
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WRAFQN 


57 


622 


663 


WS 


555 


5/2 


57 4 


X 


I J 2 


160 


161 


XHOME 


'>r>4 






XLEN 


554 


'.•74 




Y 


.1 12 


160 


161 


YHOME 


554 






YLEN 


:..;•• 4 


1*74 
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8. 
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11. 
12. 
13. 
14. 
15. 
16. 
17. 
18 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 



• Cross Reference Listing 
CCDCPIO. TEXT 



February 1, 1983 

I'ege 1 



•C CCDCPIO. TEXT 
( 



CCDCPIO — Corvus CONCEPT DataCom and Printer I/O Unit 

Copyright 1983 Corvus Systems, Inc. 
San Jose, California 

All Rights Reserved 

v 1.0 04-08-82 MB Original unit (was CCprtlO) 

v 2. 12-10-82 KB Updated to now functions and datacom added 



UNIT CCdcpIO; 

INTERFACE 

USES -C*U /CCUTIL/CCLIB} CCdefn; 

CONST -t UnitStatus function codes } 
( not used by this unit > 



•{.Printer driver} 



FCMODECHG 

FC INST ALT 

FCATTCHPR 

FCSLCTPITCH 

FCSLCTINCH 

FC INST ACT 

FCCLPISTAT 

(DataCom driv 

FCRDSTATUS 

FCWRSTATUS 

FC SETHI WATER 

FCSETLOWATER 

FCRDOUTDSBL 

FCRDINDSBL 

FCWROUTDSBL 

FCWRINDSBL 

FCWRBUFCHRS 

FCRDBUFCHRS 

FCAUTOLF 

FCBTWNENQ 

FCRDALTBUF 

FCWRALTBUF 



♦80, 
♦81 
*82 
♦83 
♦84 
♦8lr 
♦86 

r.) 
♦07, 
♦08, 
♦09, 
*0A, 

♦ OB 
♦OC 
♦OU 
♦OE 
♦OF 

♦ 10 

♦ 11 

♦ 12 

♦ 13 

♦ 14 



(toggle transparent/translate -node} 
(install alt char translate table} 
■(attach printer to unit} 
(select pitch - 10 or 12} 
(select lines per inch - 6 or 8> 
(install printer action table} 
■(return state of CPI and LP I > 



(read buffer status) 

^write buffer status} 

•(set hi water mark for read buffer} 

(set low water mark for read buffer} 

•(toggle read buffer output disable - BUFFER 1 

(toggle read buffer input disable - PORT TO ! 

{.toggle write buffer output disable - SUFFER' 

•(toggle write buffer input disable - USER TO' 

(get the number of characters in the write b! 

(get the number of characters in the read bu ! 

(toggle the forced auto line feed flag} 

(set the number of chars between ENG's or ET ! 

(set an alternate read buffer} 

(set an alternate write buffer} 
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i baud rate codes > 
BAUD300 = 
BAUD600 » 
BAUD 1,700 = 
BAUD2400 == 
BAUD4G00 = 
BAUD9600 =■' 
BAUD 17200 a 6; 



i parity codes > 
PARDISABLED * 
PAR ODD - 1 
PAREVEN - P. 
PARMARKXNR « 3 
P ARSP ACE XNR ~ 4 



i printer port select cod 
P0RT1 ■-. o; 
PORT 2 - 1; 

< word size (charsii 
CHARS/8 = 0. 
CHARS/ 7 - I., 



t default 



C default > 



{ default J 



odes > 
I default 



shake codes ) 



75 


LINECTSINVERTED 


= 0, 


76 


LINECTSNORMAL 


= 1; 


77 


L I NEDSR INVERTED 


- P. 


78 


LINEDSRNORflAL 


- 3, 


79 


L I NEDC'D INVERTED 


= 4; 


80 


LINEDCDNORMAL 


■■= 5i 


81 


XONXDF F 


■■■■■■ 6, 


82 


FNOACK 


■■-■ 7; 


83 


ETXACK 


:= fli 


84 


NOPROTOCOL. 


= 9, 


85 


y 




86 


i unit number codes 


87 


PRINTIrRUNI T 


■•■= , (] 


88 


DTAC0M1UNIT 


1 


89 


DTAC0M2UNIT 




90 


DCPINVUNITNO 


™ -1 


91 






92 


■C*P> 





C default > 



p r o t o-t. o 1 > 
p r o t o (.. o 1 > 



128 
129 
130. 
131. 
132. 
133. 
134 
135. 
136. 
137. 
138 
139. 
140 
141. 
142 
143. 
144. 
145 
146. 



VSIXRF 


-•- Croi,s R 


ef prence 


tinting 




File ID 


. CCDCPIO. 


TEXT 






93 


TYPE 












94. 




WrBi 


fStatus 


- RECORD 




95 










Buf f erSi ze 


INTEGER 


96 










FreeSpace 


INTEGER 


9 7 










ChrBtiunENQ 


INTEGER 


98. 










InputDisbld 


BOOLEAN 


99 










OutputDsbld 


BOOLEAN 


100 










AutoLinFeed 


BOOLEAN 


101. 










AltBuf Avail 


BOOLEAN 


102 










AltBufAddr 


pBytei 


103 










AltBuf Size 


INTEGER 


104 










END, 




105. 














106 




KtlGw 


fSl 


atus ■ 


= RECORD 




107 










Buff erSi ze 


INTEGER 


10S. 










FreeSpace 


INTEGER 


1 09 










Hi Wat or 


INTEGER 


110. 










Lou/Water 


INTEGER 


1 11 










Input D i s b ] d 


BOOLEAN 


112 










OutputDsb Id 


BOOLEAN 


113 










LostData 


BOOLEAN 


114 










AltBuf Avai 1 


BOOLEAN 


115 










AltBufAddr 


p B y t p ; 


116 










AltBuf Size 


INTEGER 


117 










END; 




118. 














119. 




PrtS 


tat 


usC Ik 


--- RECORD 




120 










CPI : INTEGER; 


121 










LP I : INTEGER; 


122 










END, 
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I'rtAvajl: boolean; < printer available (assigned) > 

DLlAva.il: boolean; C datacom 1 available (assigned) > 

DC2Ava:il: boolean; C datacom 2 available (assigned) > 

jPRT: integer; -C unit number of /Printer > 

DC I : integer; ( unit number of /Dtacoml > 

DC 2: integer; < unit number of /Dtacom2 > 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCT ION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 



DCPStatu* 

DCPuirFree 

DCPrdFreH 

DCPBaudRate 

DCPParity 

DCPCharSize 

DCPHandShake 

DCPGetUnitNo: 

DCPSetUnitNo 

PrtDataCom 

DCPRdStatus 

DCPWrStatus 

DCPAutoLF: 

PrtTblStatus 



(.vsr br, par. dc. chsz. hs: integer): 
ivar freebytes: integer): 
(var freebytes. integer), 
(baudrate: integer): ! 
(parity: integer), 
(charsize: integer): 
(protocol: integer): 

(unitno: integer): 
(port: integer): 
(var RDst: RdBuf Status ) : 
(var WRst: WrBuf status ) : 

(.var Chr Inch, Lines Inch : integer): 



integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 



PROCEDURE CCdcpIOinit; 
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147. 

148. IMPLEMENTATION 

149. 

CONST 

{ UnitStatus function codes > 



15Q 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160. 
161 
162 
163 



FWRFREE •= 0, 
FBAUDRATE = 1 
FPARITY = 2 
FDATACOM = 3 
FCHARSIZE = 4 
FHANDSHAKE= 5 
FSTATUS = 6 



FRDFREE 



« 3; 



<new - uirite buffer free space) 
{new - printer orily> 



■Cneuj - 1 : read buffer free space* datacoms only> 



VAR 
-C*P> 



DCPunitno: integer; -C current unit number > 
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ice Listing 



164 
165. 
166. 
167. 
168 
169 
170 
171. 
172 



174. 



FUNCTION pOSrtevNam (untnbr: integer): pString64; 



FUNCTION OSprfrDv 
FUNCTION OSdtmlD\ 
FUNCTION 0Sd(..m2D\ 



integer; 
i n t e g e 
i n t e g e 



FUNCTION GetError: integer; 



if 
e 1 s e 



else 
end; 



DCPunitno - PRT then GetError 

. f DCPunitno =• DC 1 then GetError 

. f PCPunitno = DC2 then GetError 

Get Err or 



= IOEnoprt 
= lOEnodtc 
= lOEnodtc 
= IOEinvdev 
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external ; 
external; 
external; 
external ; 



FUNCTION GotDevice ( var ior integer): boolean; 
var devavail boolean; 



180 i or . ■■= 0, 

181 if DCPunitno = F'RT. then devavail 

182 else if DCPunitno = DC 1 then devavail 

183 else if DC-'unitno == DC 2 then devavail 

184 else , devavail 

185 if Mot dt'vavai] then ior := GetError; 

186 GotDevicp :- devavail; 
1.37 end, 



= PrtAvail 
= DClAvail 
= DC2Avail 
=■• FALSE; 



195 
196 
1 9 7 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207. 
208. 
209 
210 
211. 
212 
213. 
214. 



FUNCTION DCPStatus, {(var br , par , d c , c h s z , h s : integer), > 
type s t a t u s b 1 o c k - record 

baud rate, par i ty, port, charsi / e, handshake : integer; end; 
var stb: status block; 

l o v : i n t e g e r , 
beinn 
if Got Device ( i or ) then begin 

UnitEitatus (DCPunitno, stb, FSTATUS); 

ior := TORESULT, 

if ior : - then with stb do begin 

br -~ baudrate; par : -- parity; dc := port; 
rhsz . - char size; hs := handshake; end; 
end, 
DCPStatus - ior, 



FUNCTION DCPwrFree; {(var freebytes: integer): integer;} 
s/av ior: integer; 
b e f i 1 n 
if GotDevice ( ior ) then begin 

UnitStatus (DCPunitno, freebytes, FWRFREE); 
ior • = IORESULT; 



end, 
DCPiurFrec 
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215. FUNCTION DCPrdFree; <(var freebytes: integer ): integer; > 

216. var ior: integer; 

217. begin 

218. if DCFunitno = PRT then ior :« IOEin'vdev 

219. else if GotDevic e < i or ) then begin 

220. UnitStatus < DCPun i tno, f reeby tea . FRDFREE) ; 

221. ior : = IORESULT; 
222 end; 

223. DCPrdFree :~ ior; 

224. end; 
225. 

226. FUNCTION DCPBaudRate, -Ubaudrate: integer), integer; > 

227. var ior: integer; 

228. begin 

229. if GotDevice< ior ) then begin 

230. UrtitStatus<DCPunitno, baudrate, FBAUDRATE); 

231. ior : •- IORESULT; 

232. end; 

233. DCPBaudRate := ior; 

234. end; 
235 

236. FUNCTION DCPParity; {< parity: integer): integer;.* 

237. var ior integer; 

238. beiiin 

239. if GotDevic w( ior ) then begin 

240. Unitfjtatus<DCPunitno, parity, FPARITY ) , 

241. ior : = 10RESUI. T; . 

242. end; 

243. DCPParitu : = ior; 

244. end; 
245. 

246. FUNCTION PrtDataCom; {(port: integer): integer; > 

247. begin 

248. if"PrtAvail then began 

249. UnitStatus < PRT, port , FDATACOM ) ; 

250. PrtDataCom . = IORESULT; 

251. end 

252. else PrtDataCom ■- iUf.noprt; 

253. end; 
254. 

255. FUNCTION DCPCharSi/e, {(rharsize integer) integer;.} 

256. var ior: integer; 

257. begin 

258. if GotDevice< ior ) then begin 

259. UnitStatus(DCPunitno, chars ize, FCHARSIZE); 

260. ior : = IORESULT; 
26 i. end; 

262. DCPCharSize := ior; 

263. end; 
264. 

265. FUNCTION DCPHand Shake; {(protocol: integer): integer;} 

266. var ior: integer; 

267. begin 

268. if GotDevice< ior ) then begin 
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c.'6V UnitStat;us(DCPunitno, protocol , FHANDSHAKE ) ; 

270 ior : ■* .TORESULTi 

271 etui; 

272. PCI'HavulShake ~ ior; 

27? end; 

274 VtP> 
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280. 

281. 

28c 

283. 

284. 

285. 

286. 

287. 

288. 

289. 

290. 

291. 



293. 
294. 
295. 
296. 
297. 
298. 
299. 
300. 
301 
302 
303. 
304. 
305. 
306. 
307. 
308. 
309. 
310 
311 
312. 
313. 
314. 
315 
316. 
317. 
318. 
319 
320. 
321. 
322. 
323. 
324. 
325. 
326. 
327. 
328. 



FUNCTION PrtTblStatus; -C( var Chr Inch , Lineslnch : integer ): integer; > 
var ior: integer; 

pb: PrtStatusBlk; 
begin 

if DCPunitno <> PRT then ior := DCPINVUNITNO 
else if GotDevice ( ior ) then begin 

UnitStatus(DCPunitno, pb, FCCLPISTAT); 
ior : = IORESULT; 
if ior ■- then 
begin 

Chrlnch : = pb. CPI; 
Lineslnch : = pb. LPI; 
end; 
end; 
PrtTblStatus :~ ior; 
end; 

FUNCTION DCPRdStatus; {(var RDst: RdBuf Status ): integer; > 
var ior: integer ; 
b e ii i n 

if' DCPunitno = PRT then ior := DCPINVUNITNO 
else if GotDevic eC ior ) then begin 

UnitStatus(DCPunitno, RDst, FCRDSTATUS); 

ior : = IORESULT; 

end; 
DCPRdStatus : = ior; 
end; 

FUNCTION DCPWrStatus; -t(var WRst: WrBuf Status ): integer; > 
var ior: integer; 
begin 
if GotDevice ( ior ) then begin 

UnitStatus(DCPunitnu, WRst, FCWRSTATUS); 

ior : = IORESULT; 

end; 
DCPWrStatus : = ior; 
end; 

FUNCTION DCPAutoLF; <.: integer; > 
var ior: integer; 
begin 
if GotDevice (ior ) then begin 

UnitStatus (DCPunitno, ior , FCAUTOLF ) ; 

ior : = IORESULT; 

end; 
DCPAutoLf : = ior; 
end; 

FUNCTION DCPGetUnitNo; -C: integer;} 
b e t| i n 

if' DCPunitno = PRT then DCPGetUnitNo 
else if DCPunitno = DC 1 then DCPGetUnitNo 
else if DCPunitno = DC2 then DCPGetUnitNo 
else DCPGetUnitNo 



= PRINTERUNIT 
* DTAC0M1UNIT 
= DTAC0M2UNIT 
= DCPINVUNITNO; 
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329. 
330. 
331. 
332. 
333. 
334. 
335. 
336. 
337. 
338. 
339. 
340. 
341. 
342. 
343. 
344. 
345. 
346. 
347. 
348. 
349. 
350. 
351. 
352. 
353. 
354. 
355. 
356. 
357. 
358. 
359. 
360. 
361. 
362. 
363. 
364. 
365. 
366. 
367. 
368. 
369. 
370. 



integer): integer;} 



end; 

FUNCTION DCPSetUnitNo; -CCunitno. 
vbt ior , SVuni tno : integer; 

bad: boolean; 
begin 

bad : = false; 
SVunitno := DCPunitno; 
case unitno of 

PRINTERUNIT: DCPunitno := PRT 

DTAC0M1UNIT: DCPunitno := DC 1 

DTAC0M2UNIT: DCPunitno := DC22 

otherwise: bad := true; 

end; 
if bad then ior := lOEinvdev 

else if NOT GotDevice ( i or ) then DCPunitno 
DCPSetUnitNo := ior; 
end; 



- SVunitno; 



PROCEDURE CCdcpIOinit; 

var pIDptr: p8tring64; 
beg in 



integer; 



PRT 
DC1 
DC2 



OSprtrDv; 
. -" OSdcmlDv; 

: ■« 0Sdcm2Dv; 
DCPunitno : = PRT 
pIDptr 



•C unit number of /Printer > 
■C unit number of /Dtacaml > 
•C unit number of /Dtacom2 > 
{ default unit is printer > 
( p IDptr'^ 
( p IDptr ~ 
(p IDptr- 



» pOSdevNam (PRT); PrtAvail 
pIDptr := pOSdevNam (DC1); DClAvail 
pIDptr := pOSdevNam (DC2); DC2Avail 
if DClAvail then begin 

UnitStatus ( DC 1 , i , FWRFREE) ; 

if IORESULT <> then begin 

PrtAvail : = FALSE 



= 'PRINTER'), 
= 'DTAC0M1'); 
= 'DTAC0M2'); 



DClAvail 
DC2Avail 
end; 



FALSE 
FALSE 



•CCCdcplQ} 
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51 


60 


67 


71 75 


07 


35 








08 


36 








09 


37 








OA 


38 








OB 


39 








OC 


40 








or> 


41 








OE 


42 








OF 


43 








1 


52 


61 


68 


72 76 


10 


44 








11 


45 








12 


46 








13 


47 








14 


48 








2 


53 


62 


77 


89 1 54 


3 


54 


63 


78 


155 160 


4 


55 


64 


79 


156 


5 


56 


80 


157 




6 


57 


01 


158 




7 


82 








8 


83 








80 


26 








81 


27 








82 


28 








83 


29 








84 


30 








85 


31 








86 


32 








9 


84 








ALTBUFADDR 


102 


n5 






AkTBUFAVAI 


101 


1 14 






ALTBUFSIZE 


103 


116 






AUTOLINFEE 


100 








BAD 


333 


335 


341 


343 


BAUD 1200 


53 








BAUD 19200 


57 








BAUD2400 


54 








BAUD300 


51 








BAUD4800 


55 








BAUD600 


52 








BAUD9600 


56 








BAUDRATE 


134 


191 


199 


2.30 


BR 


131 


199 






BUFFERSIZE 


95 


107 






CCDCPIO 


16 








CCDCPIOINI 


146 


'3 A a 






CCDEFN 


20 








CHARS I ZE 


136 


191 


200 


259 


CHARSZ7 


72 








CHARSZ8 


71 








CHRBTWNENG 


97 








CHRINCH 


144 


285 
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CHSZ 


J 31 


200 














CPI 


120 


285 














DC 


131 


199 














DC1 


12B 


172 


182 


326 


339 


352 


356 


359 


DC 1 AVAIL 


.125 


182 


356 


358 


362 








DC 2 


1 2? 


173 


183 


327 


340 


353 


357 




DC2AVAIL 


.1. 26 


1 83 


357 


363 










DCPAUTOLF 


143 


313 


320 












DCPBAUDRAT 


134 


326 


233 












DCPCHARSIZ 


1. 36 


355 


262 












DCPGETUNIT 


.138 


323 


325 


326 


327 


328 






DCPHANDSHA 


137 


365 


272 












DCPINVUNIT 


90 


379 


295 


328 










DCPPARITY 


135 


336 


24 3 












DCPRDFREE 


1 33 


315 


223 












DCPRDSTATU 


141 


392 


300 












DCPSETUNIT 


139 


331 


345 












DCPSTATUS 


.131 


1 89 


202 












DCPUNITNQ 


162 


J 71 


172 


173 


181 


182 


183 


196 209 218 220 




;>no 


340 


259 


269 


279 


281 


295 


297 307 317 325 




326 


327 


336 


338 


339 


340 


344 


354 


DCPWRFREE 


I 33 


305 


212 












DCPWRSTATU 


1 42 


303 


310 












DEVAVA 1 1... 


.1 78 


181 


182 


183 


184 


185 


186 




DTACOM1UNI 


88 


326 


339 












DTAC0M2UNI 


89 


327 


340 












ENQACK 


82 
















ETX.ACK 


G3 
















FBAUDRATE 


1 153 


330 














FCATTCHPR 


28 
















fcautolf 


45 


317 














FOBTWNENO 


46 
















FCCLPISTAT 


32 


281 














FCHARSIZE 


i 56 


259 














FC INS TACT 


31 
















FCINSTALT 


37 
















FCMODECHG 


26 
















FCRDALTBUF 


4 7 
















FCRDBUFCHR 


44 
















FCRDINDSBL 


40 
















FCRDQUTDSB 


39 
















FCRDSTATUS 


35 


297 














FC SETHI WAT 


3 7 
















FCSETLOWAT 


38 
















FC SLOT INCH 


30 
















FCSLCTPITC 


29 
















FCWRALTEUF 


48 
















FCWRBUFCHR 


43 
















FCWRINDSBL 


42 
















FCWROUTDSB 


41 
















FCWR STATUS 


36 


307 














FDATACOM 


155 


249 














FHANDSHAKE 


157 


269 














FPARITY 


154 


240 
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FRDFREE 


160 


220 














FREEBYTES 


132 


133 


209 


220 










FREESPACE 


96 


108 














FSTATUS 


158 


196 














FWRFREE 


152 


209 


359 












GETERROR 


169 


171 


172 


173 


174 


185 






GOTDEVICE 


1 77 

:.»06 


186 
316 


195 
34 4 


208 


219 


229 


239 


258 


HANDSHAKE 


191 


200 














HI WATER 


109 
















HS 

I 


131 
'J 19 


200 
359 














INPUTDISBL 


98 


1 11 














IOEINVDEV 


174 


2 1 8 


343 












IOENODTC 


172 


173 














IOENOPRT 


.1 7 1 


252 














I OR 


177 


1.80 


185 


3 93 


195 


197 


198 


202 




212 


216 


218 


219 


221 


223 


227 


229 




239 


241 


243 


256 


258 


260 


262 


266 




276 


279 


280 


282 


283 


289 


293 


295 




304 


306 


308 


310 


314 


316 


317 


318 




344 


345 














LINECTSINV 


7 5 
















LINECTSNOR 


76 
















LINEDCDINV 


79 
















LINEDCDNOR 


80 
















LINEDSRINV 


77 
















LINEDSRNOR 


78 
















LINES INCH 


144 


286 














LOSTDATA 


1 1 3 
















LOWWATER 


J 10 
















LP I 


.121 


286 














NOPROTOCOL 


84 
















OSDCM1DV 


166 


352 














0SDCM2DV 


167 


353 














OSPRTRDV 


165 


351 














OTHERWISE 


341 
















OUTPUTDSBL 


99 


112 














PAR 


131 


199 














PARDISABLE 


60 
















PAREVEN 


62 
















PARITY 
PARMARKXNR 


135 
63 


191 


199 


240 










PARODD 


61 
















PARSPACEXN 


64 
















PB 
PBYTE 


277 
102 


281 

115 


285 


286 










PIDPTR 


349 


355 


356 


357 










PORT 


140 


191 


199 


249 










PORT1 


67 
















P0RT2 


68 
















POSDEVNAM 


164 


355 


356 


357 










PRINTERDNI 


87 


325 


338 












PROTOCOL 


137 


269 















206 208 210 

231 233 2.37 

268 270 272 

296 298 300 

320 332 343 
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PRT 


127 
355 


171 


181 


218 


PRTAVAIL 


124 


181 


248 


355 


PRTDATACOM 


140 


246 


250 


252 


PRTSTATUSB 


119 


277 






PRTTBLSTAT 


144 


275 


289 




PSTRING64 


164 


349 






RDBUFSTATU 


106 


141 






RDST 


141 


297 






STATUSBLOC 


190 


192 






STB 


192 


196 


198 




SVUNITNO 


332 


336 


344 




UNITNO 


139 


337 






UIMTNBR 


164 








WRBUFSTATU 


94 


142 






WRST 


142 


307 






XONXOFF 


81 
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1. -C CCDIRIO. TEXT 

2. < 

3. <. CCDIRIO — Corvus CONCEPT Volume Directory Unit 

4. -C 

5. -C (c) Copyright 1982 Corvus Systems. Inc. 

6. < San Jos-ei California 

7. -C 

8. -C All Rights Reserved 

9. -C 

10. -C v 1.0 .10-06-82 LEF Original unit 

11. C 

12. -t 

13. -C*R-> 
14. 

15. UNIT CCdirlO; 

16. 

17. INTERFACE 

18. 

19. CONST 

20. It lock Si 2<? •- 512; 

21. VIDlemrth = 7; 

22. TIDlencjth = 15, 

23. MaxDi ri'nt = 77, 
24. 

25. TYPE 

26. dirrange - 0. . MaxDirEnt; 

27. vid •-- string CVIDlength.l; 

28. tid » stringCl IDlenqthii; 

29. filekind = (UNTYPEDFILE, XDSKFILE, CODEFILE, TEXTFILE, INFOFILE, 

30. DATAFILE, GRAFF ILE* FOTOFILEi SECURDIR); 
31. 

32. datercr - packed record 

33. year; 0. . 100; C 100 » temp file flag > 

34. day: 0. . 31; 

35. month; 0. 1.2; -CO" date not meaningful > 

36. end; 

37. f.*P> 
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38. 
39. 
40. 
41. 
42. 
43. 



48. 
49. 
■50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 
61. 
62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72 
73. 
74. 
75. 



(1 irentry 



packed record 
firstblock: integer; 
nextblock: integer; 
MarkBit: Boolean; 
filler: 0. . 2047; 
case fkind: filekind of 
SECURE) IR» 
UNTYPEDFILE: 
(dvid: vid; 
deovblock: integer; 
dnumfiles: integer; 
dloa'd time: integer; 
dlastboot: daterec; 
I'lemFl ipped : Boolean; 



Disk volume name > 
Last block of volume > 
Number of files > 
Time of last access > 
Most recent date setting > 
TRUE if flipped in memory > 



DskFlipped: Boolean); -C TRUE if flipped on disk > 

XDSKFILE, CODEFILE, TEXTFJLE, INFOFILE, 

DATAFILE, GRAFFILE, FOTOFILE: 

(dt.i.d: tid; -C Title of file > 

dlastbyte: 1. . Bloc kSi ze; < Bytes in last block > 
daccess: daterec); -i Last modification date > 



directory = array TdirrangeU of direntry; 

PROCEDURE CCdirlOinit; 

PROCEDURE GetVolDir < fvid: vid; 

\/ar fdir: directory; 
var DevBlocked: Boolean; 
var f devno: integer; 
var DevValid: Boolean); 

PROCEDURE PutVoJDir (var fdir: directory; 
f devno: integer); 

IMPLEMENTATION 

<*P> 
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76. PROCEDURE xgetdir (fvid: vid; 

77. vav fdir: directory. 

78. vav DevBlocked: Boolean; 

79. var fdevno: integer; 

80. var DevValid: Boolean); externa! 
81. 

82. PROCEDURE xputdir (var fdir: directory; fdevno: integer); externa! 
83. 

84. PROCEDURE GetVolDir < ( fvid: vid; 

85. var fdir: directory; 

86. vav DevBlocked: Boolean; 
87 var fdevno: integer; 

88. vav DevValid: Boolean)}; 

89. I) eg in 

90. xgetdir (fvid, fd ir, DevBloc ked, fdevno, DevVal id ) ; 

91. end; 
92. 

93 PROCEDURE PutVolDir {(var fdir: directory; 

94. fdevno: integer)}-; 

95. begin 

96. xputdir ( fd ir, fdevno > ; 

97. end; 
98. 

99. PROCEDURE CCd ir J Oin i t ; 
100. begin end; 
101. 

102. end. 
103. 
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26 


33 


34 


35 


42 




1 


56 












100 


33 












12 


35 












15 


22 












2047 


42 












31 


34 












512 


20 












7 


21 












77 


23 












BLOCKS I ZE 


20 


56 










CCDIRIO 


15 












CCDIRIOINI 


62 


99 










CODEFILE 


29 


53 










DACCESS 


57 












DATAFILE 


30 


54 










DATEREC 


32 


50 


57 








DAY 


34 












DEOVBLOCK 


47 












DEVBLOCKED 


66 


78 


90 








DEWALID 


68 


80 


90 








DIRECTORY 


60 


65 


70 


77 


82 




DIRENTRY 


38 


60 










DIRRANOE 


26 


60 










DLASTBOOT 


50 












DLASTBYTE 


56 












DLOADTIME 


49 












DNUMFILES 


48 












DSKFLIPPED 


52 












DTID 


55 












DVID 


46 












FDEVNO 


67 


71 


79 


82 


90 


96 


FDIR 


65 


70 


77 


82 


90 


96 


FILEKIND 


29 


43 










FILLER 


42 












FIR5TBL0CK 


39 












FKIND 


43 












FOTOFILE 


30 


54 










FVID 


64 


76 


90 








GETVOLDIR 


64 


84 










GRAFF I LE 


30 


54 










INFOFILE 


29 


53 










MARKBIT 


41 












MAXDIRENT 


23 


26 










MEMFLIPPED 


51 












MONTH 


35 












NEXTBLOCK 


40 












PUTVOLDIR 


70 


93 










SECURDIR 


30 


44 










STRING 


27 


28 










TEXTFILE 


29 


53 










TID 


28 


55 










TIDLENGTH 


22 


28 










UNTYPEDFIL 


29 


45 











VSIXRF — Cross Reference Listing February 1, 19E?3 

File ID: CCDIRIO. TEXT Page 3 



VID 


27 


46 


VIDLENGTH 


21 


27 


XDSKFILE 


29 


53 


XGETDIR 


76 


90 


XPUTDIR 


82 


96 


YEAR 


33 
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•C CCGRFIO TEXT - 

■C 

■C CCGRFIO 



Corvut CONCEPT Graphics Support Unit 



( i: ) Copyright 1982 Corvus Systems* Inc. 
Ban Jos-e» California 



All Rights Reserved 



I. 04-10-8? 
1. 1 05-13-82 



Original unit 

Wr iteBy tes» ReadBytes now UnitStatus calls 



18. 
19. 
20. 
21. 



28. 
29. 
30. 
31. 
32. 
33. 
34. 
35 



38. 
39. 
40. 
41. 
42. 
43. 



t'*R-> 

UNIT CCgrPIO; 

INTERFACE 

USES -C*U 0CL1B3- CCdefn; 



CONST 

OrfMwhite 
GrfMblack 
GrfMf lip 

G. CQgrRel 
Grf GgrAbt. 
GrfQchRe) 
Grf«chAb<. 



•C mode values } 



C qual values )• 



PROCEDURE CCgrfIOii.it; 



PROCEDURE SetOrigin 
PROCEDURE PlotPoint 
PROCEDURE DrauiLine 
PROCEDURE FillBox 
PROCEDURE CopyBox 
PROCEDURE WriteBytus 
PROCEDURE ReadBytet 

IMPLEMENTATION 



( xi y» qual : 

( x» y i mode: 

( x 1. y 1, x2i y2» mode: 

( x 1» y 1/ wd. hti density: 

( xl> yl, wd, ht» x2» y2: 

(count: integer; pBuff: pBytes); 

(.count: integer* pBuff: pBytes); 



integer ) ; 
integer > * 
integer )» 
integer ) ; 
integer ) ; 
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44 
45 
46. 
4 7 TY PE 

46 
49 

51 
Si'.' 
53 



ONST ESC =■ *1B; 

WR BYTES = 6; RDBYTES - 7; { UnitStatus functions > 



yraphbuffer - record case integer of 

0. < |> i : array CI. . 103 of integer); 
I: (pb: array CI.. 20] of byte); 



wr buffer - 



end; 

record 

b y t e ( o un t : i n t e g e r ; 

buffptr: pByte;.; 



l)j z\.) layDr 
b u f ■ 
wbuf 



integer; 
yraphbuf f er; 

wrbufff.Ti 
1 1 y t v. ; 



62 FUNCTION QSdispDv. integer; external; 



64 PROCEDURE SetOrjgin; -C (x.y.qual: integer) > 

65 I, eg in 



6S. 

6" 



b u f p b I I. J 
liuf pil23 
buf. p b i: 7 3 



= ESC; buf . pbC2J 
---• x; buf. p i C 3 11 
= quo] mod 128; 



ord( ' o ' ) ; 

y; 



iimtwri te (D:i splayDrv, buf, 7); 



PROCEDURE PlutPuint. -f. < x , y, mode : integer) > 
fi eg :in 



buf pbt 13 = ESC, buf. pbC23 : 

buf. pi 1.23 : = x; buf. piC33 : 

buf.pbl73 := mode mod 256; 

imitwri te (Di splayDrv, buf, 7) ; 
end; 



o r d < ' p ' ) ; 



79 
80 
81 
82. 
83. 
84 
85. 
86 
87 
88 
89 <*P> 



PROCEDURE DrawLine; 
Uegi 



buf. pbl.l] 
buf. pi I. 23 
buf. pil43 
buf pbt 113 



1 , y 1 , x2, y2, mode: integer) > 
ird( '1 '); 



= ESC; buf. pbC23 

= x 1; buf. piC3J 

•= x2; buf. piC5"J 

: •-• mode mod 256; 



yl; 
y2; 



u nit write (DisplayDrv, buf, 11); 

end; 
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90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124. 
125. 



PROCEDURE FillBox; < < x 1. y i. wd, ht. density : integer) > 
beg in 



buf pbt 13 
buf . p il 23 
buf pit 41 
buf. pbtll] 



ESC; buf.pbC2.J : 

xl; buf. p i C 3 II : 

h t; buf. piC5'J : 

density mod 2S6; 



ord( 'f '); 
yl; 



unitujrite (Di sp layUrv. buf . 11); 
end; 



PROCEDURE CopyBox, < ( x 1 , y 1 , wd , h t, x2, y2: integer) > 
begin 



buf pbt 13 


= 


ESC; 


buf. pbC23 . 


- : ovd ( 'm ' ) ; 


buf. pi!23 


= 


xl; 


buf. piC33 : 


; yl; 


buf. pif 43 


= 


hti 


buf. piCSil : 


• wet ; 


buf pi 1.63 


= 


x2; 


buf. pi [7.1 : 


- y«7i 


unitur J te 


(D 


s p 1 a 


yDrv, buf, M >; 




end; 











PROCEDURE WriteBytes, -t (count: integer ; pHuff: p Bytes) > 
begin 

uibuf. bytecount := count/ 
uibuf. buf Fptr : = f.Buff; 
unitstatus (DisplayDrv, ubuf. WRBYTES), 
end; 

PROCEDURE ReadBytes; C (count: integer; pBuff: pHytes) > 
bey in 

uibuf . by te count - ( ount; 
uibuf. buffptr : = +»Buff; 
unitstatus (DisplayDrv, wbuf, RDBYTES). 
end; 

PROCEDURE CCcirf JOimt; 

begin DisplayDrv :~ OSdispDv; end; 

END. -C Unit CCyrf.10 > 
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24 


49 






1 


23 


25 


27 


49 


10 


49 








11 


85 


86 


95 


96 


128 


68 








14 


305 








IB 


44 








2 


28 


66 


67 


74 


20 


r?o 








256 


76 


85 


95 




3 


29 


67 


75 


83 


4 


30 


84 


94 


3 03 


5 


84 


94 


3 03 




6 


45 


J 04 






7 


15 


68 


69 


76 


B 


60 








BUF 


58 


66 


67 


68 




84 


85 


86 


92 




J 04 


.105 






BUFFPTR 


54 


.1 11 


118 




BYTE 


50 


60 






BYTECGUNT 


53 


J 10 


3 17 




CCDEFN 


20 








CCGRFIO 


16 








CCGRFIOINI 


32 


.1 22 






COPYBGX 


3 7 


99 






COUNT 


38 


39 


3 10 


3 17 


DENSITY 


36 


95 






DISPLAYDRV 


57 


69 


77 


86 


DRAWL. I NE 


35 


80 






ESC 


44 


66 


74 


82 


FILLBCJX 


36 


90 






GRAPHBUFFE 


48 


58 






GRFMELACK 


24 








GRFMFLIP 


25 








GRFMWHITE 


23 








GRFQCHABS 


30 








GRFGCHREL 
GRFQGRABS 


29 
28 








GRFQGRREL 


27 








HT 


36 


37 


94 


3 03 


MODE 


34 


35 


76 


85 


OSDISPDV 


62 


123 






PB 


50 


66 


68 


74 


PBUFF 


38 


39 


311 


118 


PBYTES 


38 


39 


54 




PI 


49 


67 


75 


83 


PLOTPOINT 


34 


72 






QUAL 


33 


68 






RDBYTES 


45 


119 






READBYTES 


39 


115 






SETORIGIN 


33 


64 






WBUF 


59 


no 


111 


312 


WD 


36 


37 


94 


103 



69 


74 


75 


76 


77 


82 


83 


93 


94 


95 


96 


101 


102 


103 
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WRBUFFER 


52 


59 






WRBYTES 


45 


112 






WRITEBYTES 


38 


108 






X 


33 


34 


67 


75 


XI 


35 


36 


37 


83 


X2 


35 


37 


84 


J 04 


Y 


33 


34 


67 


75 


Yl 


35 


36 


37 


83 


Y2 


35 


37 


84 


104 
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1. < CCLBLIO. TEXT 

2. -C 

3. -C CCLBLIO — Corvus CONCEPT Label Processing Unit 

4. -C 

5. -C (c> Copyright 1982 by Corvus Systems. Inc. 

6. -C San Jose, California 

7. -C 

8. -C All Rights Reserved 

9. -C 

10. -C v 1. O 04-01-82 KB Original unit 

11. -C v 1. 1 07-09-82 LEF Function labels expanded to 8 characters 

12. < v 1. 2 01-11-83 LEF Add conditionals for p-System 

13. < 

14. -CICO-C Corvus CONCEPT version 

15. -C- 

16. -C*R-> 
17. 

18. UNIT CClbHO; 

19. 

20. INTERFACE 

21. 

22. TYPE 

23. LblKeyStr = stringC82; 

24. LblRtnStr = string L 163; 
25. 

26. PROCEDURE CClbllOinit; 

27. PROCEDURE CC 1 b 1 IOterm; 

28. PROCEDURE Lblslr.it; 

29. PROCEDURE LblsOn; 

30. PROCEDURE LblsOff; 

31. FUNCTION LblSet <KN: integer, LblStr. LblKeyStr; 

32. RetStr: LblRtnStr): integer; 
33. 

34. IMPLEMENTATION 

35. 

36. -C*P> 
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37. 

38 

39. 

40. 

41. 

42. 

43. 

44. 

45. 

46. 

47 

48. 

49. 

50. 

51 

52. 

53. 

54 

55. 

56. 

57 

58. 

59. 

60 

61. 

62. 

63. 

64 

65. 

66 

67 

68. 

69, 

70. 

71. 

72. 

73. 

74. 

75. 



CONST 

<!CC> In it = *FF 

<!CC> SetKey = *FE 

<!CC> TurnOff » *FD 

-['.CO TurnOn = *FC 



■C initialize labels function code > 

■€ set label table entry function code > 

■C turn off labels function code > 

< turn on labels function code > 



TYPE lblchs = packed array CI.. 83 of char; 
l.blPblock « record 

KeyNumber: integer; 
Lblch: lblchs; 
ReturnStr: LblRtnStr; 
ond; 

VAR Systerm: integer; i. unit number of label manager systerm > 

FUNCTION OSstrmDv: integer; external; 

PROCEDURE LbJsInit; 

var SKParmBloc k : LblPblock; i: integer; 
begin 

UnitStatus (Sy sterm. i , TurnOff ) ; {function uses NO ParameterBloc k> 
with SKParmBlock do begin {initialize all labels to blanks> 
for i := 1 to 8 do LblchCi] := ' '; ReturnStr := ' '; 
for i : •- to 39 do begin 
KeyNumber : = i; 

UnitStatus (Systerm. SKParmBlock, SetKey); 
end; <for> 
end; Cwith> 
end; 

PROCEDURE LbJsOrii 

var i : integer; 

begin UnitStatus (Systerm. i. TurnQn ) ; end; 

PROCEDURE LblsOff; 

var i integer; 



begin UnitStatus (Systerm. i. TurnOff ); end; 
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76. FUNCTION LblSet -C ( KN : integer; LblStr: LblKeyStr; 

77. RetStr: LblRtnStr): integer}; 

78. <. returns IONESULT > 

79. var SKParmB I oc k : LblPblock; i: integer, 

80. begin 

81. UnitStatus ( Sy s term, i , Tu rnOf f ) ; {function uses NG Parameter^ ] oc k } 

82. with SKParmBlock do begin 

83. KeyNumber : - KN; 
84 for i : = 1 to ti do 

85. if i > length (LblStr ) then Lblchtii! := ' ' 

86. i.-lse LblchCiil := LhlStrCi'J; 
B7. Returnstr : = RetStr; 

88. end; 

89. UnitStatus ( Sy sterm, SKParmBloc k . SetKey > ; 

90. LblSet := IORESULT; 

91. end; 
92. 

93. PROCEDURE. CCJ b 1 1'Uini t; 

94. begin Systerm ■- QWstrmDv; I. blslnit; end, 
95. 

96 PROCEDURE CClbl IQtorm; 

97. begin 

98. Lb lc In it; 

99. end; 
100. 

101. END < Unit CClbllO > 
102. 
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3° 


60 








8 


23 


43 


59 


84 


CCLI3LIQ 


IS 








CCLBLIOTNI 


26 


93 






CCLBL.IOTER 


;i>7 


96 






FC 


41 








FD 


40 








F£ 


39 








FF 


ns 








I 


55 


•57 


59 


60 




H4 


85 


86 




INIT 


38 








KEYNUMBUR 


4 5 


61 


S3 




KN 


31 


83 






LBLCH 


46 


59 


85 


86 


LBLCHS 


43 


46 






L.BLKEYSTR 


23 


31 






L BLPBLOCK 


44 


35 


79 




LBLRTNSTR 


24 


32 


47 




LGLSET 


31 


76 


90 




LBLSINIT 


28 


34 


94 


98 


LBLSOFF 


30 


71 






LBLSON 


29 


67 






LBLSTR 


31 


85 


86 




OSSTRMDV 


% y,2 


94 






RETSTR 


32 


87 






RETURNSTR 


4 7 


59 


87 




SETKEY 


39 


62 


89 




SKPARMBLOC 


53 


58 


62 


79 


STRING 


23 


24 






SYSTERM 


30 


57 


62 


69 


TURNOFF 


40 


57 


73 


81 


TURNON 


41 


69 
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MIO. TEXT - 
CCOMNIO 



OMNINET Commands Unit for Corvus CONCEPT 



(<:) Copyright 1982 Corvus Systems. Inc. 
San Jose. California 



8 

9. 

10. 



19 
20 
21 
22 
23 
24 



All Rights Reserved 



01-09-82 

1 05-15-82 

2 10-27-82 



PHB Original unit 

LEF CComnIO unit modifications 

LEF OCsndMesg and OCsetRecv call modifications 



*e: This UNIT contains procedures which construct 
Ornninet commands and send them to the Transporter. 
It also defines constants and data structures which are 
useful when programming an Ornninet application. 
Hopefully, a Pascal programmer can use this UNIT without 
knowing the details of the Transporter interface ... 



UNIT CComnIO; 



28 

29 



33 
34 
35. 
36 
37. 
38 
39. 
40 
41. 
42. 
43. 
44 
45 
46. 
47. 
48. 
49 



USES {W CCLIB1 CCdefn; 

CONST 

i Transporter Retur 
Wai ting - *f F 
Cm<IAcpt = *FE 
Echoed = *C0 



GaveUp 

TooLong 

NoSockt 

HdrErr 

BadSock 

Inuse 

BadDest 



*80 
*81 
*82 
*83 
*B4 
*85 
$86 



OkCode =- 0; 
NoTrans - -1; 



{ command accepted 

{ echo command was successful 



aborted a send command after MaxRetries tries > 

last message sent was too long for the receiver > 

sent to an uninitialized socket > 

sender's header length did not match receiver's > 

invalid socket number > 

tried to set up a receive on an active socket > 

sent to an invalid host number > 



■C success! 



•C indicates that we aTe unable to communicate 
{ with Transporter - strobit failed 
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I 



I' 

53. 
54. 
55. 
56. 
57. 
58. 
59. 
60. 



65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 
88. 



■C Transporter Opcodes > 



RecvOp 

SendOp 

InitOp 

EndOp 

DebOp 

EchoOp 

WhoOp 



*F0 
= *40 
- *20 

» *10 

= *08 
= *02 

= *01 



SETUPRECV opcode 
SENDMSG opcode 
INIT opcode 
ENDRF.CV opcode 
PEEK/POKE opcode 
ECHOCMD opcode 
WHOAMI opcode 



pOCrsltRcd 
OCrsltRcd 



~ "OCrsltRcd; 
= RECORD 

R c: o d e : byte 

Sourc 

Len : 

UCdta 

END; 



byte; 
integer; 
array 1.0. 



2553 of byte; 



OCresult: 
OCrslt: 



OCcurBP: 
OCcurRP: 



integer; 
OCrsltRcd; 



pBytes; 
pOCrsltRcd; 



•C similar to IORESULT in UCSD Pascal. 

< may be checked after each Transporter comma 
■i result record which is used for all command 

< except OCsndMesg and QCsetRecv . . 
■C current buffer pointer 

■C current result pointer 



PROCEDURE CComnlOinit; 

PROCEDURE OCsndMesg (bp: pBytes; rp: 

PROCEDURE OCsetRecv (bp: pBytes; rp: 

PROCEDURE OCendRecv (an: integer); 

PROCEDURE OCinitTrans; 

PROCEDURE OCechoTrans (dest: integer); 

FUNCTION OCpeekTrans <adr: integer): 

PROCEDURE OCpokeTrans (adr: integer; v 

PROCEDURE OCuihoAml; 

IMPLEMENTATION 

■C*P> 



pOCrsltRcd; 
pOCrsltRcd; 



byte; 

al: byte); 



sn, d In, h In, 
sn. din, h In: 
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■■=■ *30F7K; f address of VIA register A, used for OMNINET rea ! 
- *30FAli -C address of Transporter register > 



>ffsets into command record for byte fields > 



99 




Hl.cn 


- 11 


1 00 




De<.t 


■- IS 


1 1 




ED':t 


- 5; 


102. 




PeFu 


~ 7; 


103 




PoVetl 


=-■: B. 


104 




PAdr 


- 5; 


10A. 


TYP 






1 7 . 




pOruni 


:<mJ =■ • 


108 








1 09 




OmniC 


nd ■■■■- Rf 


1 10 






C< 


111 








112. 
113 









opcode > 
socket number 
header length > 
destination for 
destination for 



s ends > 

i?cho commands > 

<.' peek /poke designator for Deb commands 

( Puke value > 

< Transporter Address to peek or poke > 



integer (JF 



RECORD 

pOCrsltRt.d; 

p B y t e i. ; 
I M: integer; 
HL ■ integer; 
end); 
array CI. 12J of byte); 



R I "CORD 




CAGE 


:i n t e g < 


>r OF 


1 


(I..NG: 


1 o n g i n t ) ; 


2 


(PTR: 


-byte); 


3 


(CPT 


pOmniCmd ) ; 


4 


(RPT: 


pOCrsltRcd); 


5 


(ARR. 


array CO. . 33 of byte) 



128 








129. 


VAR 






13C 




ocmd': 


OmniCmd; 


131 




trul I 


OCrsltRcd; 


132. 




stvobeadv 


IT i xRcd; 


133 




r e a d y a d r : 


IrixRcd; 


134. 




cmriadr : 


'VrixRcd; 


135 




t r a n s r p : 


pOCrsltRcd 


136. 








137 


■C*P> 





(. the command record used for all commands > 



<. result pointer used for short commands > 



VSIXRF — Cross Reference Listing February 1, 198-3 

File ID: CCOMNIO. TEXT Page 4 

138. { : > 

139. < ready - > 

140. •< ' > 

141. 

142. FUNCTION ready: boolean; 

143. var i: byte; j: integer; 

144. begin 

145. j :- 10000; 

146. repeat 

147. i := readyadr. PTR-"-; 

148. j := j — J. i 

149. unti) (j =0) or (ODD (i>>; 

150. ready := ODD ( i ) ; 

151. end; 
152. 

153. -C > 

154. -C unsigned - convert byte to unsigned integer ) 

155. -C > 

156. 

157. FUNCTION unsigned (b: byte): integer; 
£58. begin 

159. if b < then unsigned := b + 256 

160. else unsigned : =■ b; 

161. end; 
162. 

163. -C > 

164. < strobit - strobe command address to Transporter > 

165. -C > 

166. 

167. FUNCTION strobit: boolean; 

168. vav i: integer; isready: boolean; 

169. begin 

170. i : = J .; 

171. repeat 

172. isready : = ready; 

173. if isready then 

174. strobeadr. PTR' :» cmdadr. ARRC i 1 ; 

175. i : « i + l 

176. until (i > 3) or (NOT isready); 

177. strobit : = isready; 

178. end; 
179. 

180. -C*P> 
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181. -C > 

182. { doit - "strobes in" the command and waits for the result > 

183. { to chanqe this is used for the simple commands > 

184. < > 



185. 

186. PROCEDURE doit (cmd: byte); 



187. 
188. 
189. 
190. 
191. 
192. 
193. 
194. 
195. 
196. 
197. 
198. 
199. 
200. 
201. 
202. 
203. 
204. 
205. 
206. 
207. 
208. 
209. 
210. 
211. 
212. 
213. 
214. 
215. 
216. 
217. 
218. 
219. 
220. 



var j: integer; 

begin 

OCrslt. Re ode := ORD (Waiting); 

ocmd. P. RP : = Strslt; -C must load this pointer BEFORE opcode byte > 

ocmd. ACQpD : = cmd; 

tr&lt. Rcode : = -1; 

if strobit 

then begin 

j : = 10000; 
repeat 

J := j - 1 

until (tr sit. Rcode O -1) or (j - 0); 
OCrslt := trslt; 

OCresu.lt : : =■ unsigned (OCrslt. Rcode ) ; 
t-nd 
else OCresult : := NoTrans; 
end; 



■C cnvsock 

•C 



convert socket number to Transporter socket number 



FUNCTION cnvsock 
beq in 
case sn of 

1 , *00: 

2, *90: 

3, *A0: 

4, *B0: 
{otherwise: 

end; 
end; 



integer): byte 



cnvsoc k 
cnvsoc k 
cnvsoc k 
cnvsoc k 
cnvsoc k 
{case} 



: = ORD (*80); 

:=■ ORD (SVO); 

: =■ ORD (*AO)i 

: = ORD (*B0); 

: = ORD ( *FF ) ; 
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221. i. > 

222 .< y 

223 C The following procedures construct Omni net commands and send > 

224 < them to the Transporter. > 

225 {. } 
226. f. : } 

228. 

229 < — ■ ■■ ■ > 

230 < OC i n i t T> j*.n-& - initialize Transporter and determine our host number > 

231. < > 

232. 

233 PROCEDURE OC i n i tTran s; 

234 tieiiin doit (InitOp)i end; 
235. 

236 <. > 

237 < QCwhuAml - find out what this host number is > 

23S. <■- > 

239. 

240 PROCEDURE OCwhoAml; 

241 beti in doit, (WhoOp); nnd; 
242 

243 -t > 

244 < OCechoTrans echo to specified Transporter > 

245. < > 

246. 

247 PROCEDURE OCochoTrans <<riest: integer )>; 

248 beo in ocmd. AlEDs t 3 : = dest; doit (Echoup); end* 
249 

250. -f*P> 
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251. 
252. 
253. 
254. 
255. 
256. 
257. 
258. 
259. 
260. 
261. 
262. 
263. 
264. 
265. 
266. 
267. 
268. 
269. 
270. 
271. 
272. 
273. 
274, 
275. 
276. 
277. 
278. 
279. 
280. 
281. 
282. 
283. 
284. 
285. 



OCsndMesg - send a message to another hont. . 



<- 

< 

•C 

■C ASSUMPTIONS: 

■C - the body of the message is at the memory location 

■C specified by bp. 

< - the user header <if any) is at memory location 

■C rp+4. <The user header is always immediately 

•C following the result vector* which is 4 bytes long. ) 

•C - the result vector to be modified is at rp 



PROCEDURE OCsndMesg <(bp: pBytes; rp: pOCrsltRcd; 
sni din. hln» dst: integer)}; 
begin 

OCcurBP :« bp; OCcurRP :- rp; 
with ocmd do begin 

P.fJP :* OCcurRP J < must load pointers BEFORE Op and Sock fields' 
P. DP :« OCcurBP; 
ACOpI : - SendOp; 
ALSock.1 :- cnvsock (sn); 
AtHLen3 : ~ hln; 
P. LN :« din; 
ACDestl : = dst; 
end; 
OCcurRP'\ Rcode := -Is <ORD (Waiting); J 
if strobit 

then begin 

repeat until OCcurRP^. Rcode O -1; <URD (Waiting);:) 
OCresult ; = unsigned (OCcurRP^. Rcode ) ; 
t»nd 
else OCresult : = NoTrans; 
end; 

<*P> 
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286. < — - ■ > 

287 J i OCsetRecv - assembles a receive command and sends it to the > 

288 < transporter > 
28*? will not return until the command has been accepted... > 

■■290 < < • : : ■■ — y 

291 

292 PROCEDURE OCtetRecv f(bp; pBytes; rp: pOCrsItRcd; 

29..? snj dltwhln: integer. )>; 

294 beffin 

29 3 OCrurnp : -.. bp; OCcurftP, : * rp; . 

29c. with ':c«i(l do begin 

29"7 p. DP : « OCcurBP; 

298 P PP : ■•= OCi.urRPi 

299 P LN - din, 

200 ATOpit - OHO (Ret:vOp); 

301. Ai'Soikl = c'nvsock (sn); 

302 Ai Hi.t-nJ : = bin, 

302 eii.-{; 

30A OC urHP Rcode = - i ; < ORD (Waiting); > 

30':?. if ;: fc ■!•• o b i t 

306 then beflin 

3C? repeat until OCi:urRP'\ Rcode O -1; -CORD (Waiting); > 

30S (JCresult := unsigned <OCcur«P-'\ Rcode) ; 

30 ^ end 

310 else UC result :~ NoTrans; 

311. e.i<«, 

312 

313. 

314. <:- ■. > 

315 < OCendRecv - reset a setup receive > 

31ft <- — -> 

317 

318 PROCEDURE C7Ct-ndRecv {(sn: integer)}; 

31'V bet? in 

320 ocmd Al'Sock "I ■- c'nvsock .(sn); 

321 do it (FndOp); 
222. ejidi 

324. >;.%py 



VSIXRF — Cross Reference Listing 
File ID: CCOMNIO. TEXT 



1* 1^83 
Page 9 



325. 
326. 
327. 
328. 
329. 
330. 
331. 
332. 
333. 
334. 
335. 
336. 
337. 
338. 
339. 
340. 
341. 
342. 
343. 
344. 
345. 
346. 
347. 
348. 
349. 
350. 
351. 
352. 
353. 
354. 
355. 
356. 
357. 
358. 
359. 
360. 
361. 
362. 
363. 
364. 
365. 
366. 
367. 
368. 



■C OCpeekTrans - rend from the RAM inside the Transporter 

< if OCresult < O then the value returned is undefi 



FUNCTION OCpeekTrans {(adr: integer): byte!); 
var x: integer; 
begin 
with ocmd do begin 

P. RP : = Strslti 

AfOplI : » DebOp; 

AtPeHoD :« PeekOp; C peek > 

AI.PAdr3 . = adr DIV 256, 

AC P Adr + 1.1 :- adr MOD 256; 

end; 



trv.lt Rccde : = - 
i f strob .i t 

then begin 
x : = 0; 
repeat : 



1, < QRD (Wailing); 



+ 1 unti 1 (tr-.lt. Rcode 



i. the peek value could be equal to Waiting 
UCrsl t : =•• trslt; 

UCresult : == unsigned ( QCr s 1 1. Rcod e > ; 
OCpeekTrans := GRD (OCresult); 

tT.'i 

else OCresult : = Nolrans; 



•C OCpokeTrans 



write into the Transporter's HAM 



PROCEDURE OCpokeTrans {(adr: integer; va 1 : byte>:> 
begin 
with ocnid do begin 



ACPAdrl 

ACPAdr+i: 

ATPePol 

ALPoVai.l 

end; 

doit (DebOp), 

end ; 



- <><ir DIV 256, 
= adr MOD 256; 

- GRD (PokeClp ); 

•■"• va .1 ; 



VSIXRF - 
File ID: 

369. C 

370 

371. 

372 

373 

374. 

375. 

376. 

377. 

378. 

379. 

380. 

38 1 . 

382. 

383. 

384. 

385. 

386 

3Q-". 
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< OComnrOtnit - initialize CComnlO unit 



FROCEDURE CComnlOiniti 
b e () i n 

OCv.urlJF : * NIL; 
re.jdyadr. LNG . ~ RdyAdri 
sti-obcadv. LNG := StrAdn 
ciiwladr. CRT : - («?ocmd; 

transrp := eOCrslt; <. is this pointer necessary? > 
i result pointer points at OCrslt > 

< this procedure could also initialize the Transporter and Poke > 
■C the proper values for the Transporter parameters which have > 

< values other than the default. > 

t>mi; 
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44 


65 


126 


149 


159 


198 


343 






00 


93 


















01 


57 


















02 


56 


















08 


55 


















1 


46 


97 


111 


117 


122 


148 


170 


175 


192 




212 


276 


279 


304 


307 


338 


340 


344 


361 


10 


54 


















10000 


145 


195 
















11 


99 


















12 


100 


117 
















2 


117 


123 


213 














20 


53 


















200 


344 


















255 


65 


















256 


159 


337 


338 


360 


361 










3 


124 


126 


176 


214 












30F7F 


90 


















30FA1 


91 


















4 


125 


215 
















40 


52 


















5 


98 


101 


104 


126 












7 


102 


















8 


103 


















80 


36 


212 
















81 


37 


















82 


38 


















83 


39 


















84 


40 


















85 


41 


















86 


42 


















90 


213 


















A 


117 


191 


248 


270 


271 


272 


274 


300 


301 




335 


336 


337 


338 


360 


361 


362 


363 




AO 


214 


















ADR 


82 


83 


337 


338 


360 


361 








ARR 


126 


174 
















B 


157 


159 


160 














BO 


215 


















BADDEST 


42 


















BADSOCK 


40 


















BP 


77 


78 


266 


295 












BYTE 


62 
209 


63 


65 


82 


83 


117 


123 


126 


143 


CO 


34 


















CCDEFN 


28 


















CCOMNIO 


24 


















CCOMNIOINI 


76 


373 
















CMD 


186 


191 
















CMDACPT 


33 


















CMDADR 


134 


174 


378 














CNVSOCK 


209 


212 


213 


214 


215 


271 


301 


320 




CPT 


124 


378 
















DEBOP 


55 


335 


365 
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DEST 


81 


100 


248 


274 








DLN 


77 


78 


273 


299 








DOIT 


186 


234 


241 


248 


321 


365 




DP 


113 


269 


297 










DST 


77 


274 












ECHOED 


34 














ECHOOP 


56 


248 












EDST 


101 


248 












ENDOP 


54 


321 












FO 


51 














FE 


33 














FF 


32 


94 












GAVEUP 


36 














HDRERR 


39 














HL 


115 














HLEN 


99 


272 


302 










HLN 


77 


78 


272 


302 








I 


143 


147 


149 


150 


168 


170 


174 


INITOP 


53 


234 












INUSE 


41 














ISREADY 


168 


172 


173 


176 


177 






J 


143 


145 


148 


149 


187 


195 


197 


LEN 


64 














LNG 


122 


376 


377 










LONG I NT 


122 














NOSOCKT 


38 














NOTRANS 


46 


202 


282 


310 


350 






OCCURBP 


73 


266 


269 


295 


297 


375 




OCCURRP 


74 


266 


268 


276 


279 


280 


295 


OCECHOTRAN 


81 


247 












OCENDRECV 


79 


318 












OCINITTRAN 


80 


233 












OCMD 


130 


190 


191 


248 


267 


296 


320 


OCPEEKTRAN 


82 


330 


348 










OCPOKETRAN 


83 


357 












OCRESULT 


69 


200 


202 


280 


282 


308 


310 


OCRSLT 


71 


189 


199 


200 


346 


347 


379 


OCRSLTRCD 


60 


61 


71 


131 








OCSETRECV 


78 


292 












OCSNDMESG 


77 


263 












OCWHOAMI 


84 


240 












OKCODE 


44 














OMNICMD 


107 


109 


130 










OP 


97 


191 


270 


300 


335 






P 


111 


190 


268 


269 


273 


297 


298 


PADR 


104 


337 


338 


360 


361 






PBYTES 


73 


77 


78 


113 








PEEKOP 


93 


336 












PEPO 


102 


336 


362 










POCRSLTRCD 


60 


74 


77 


78 


112 


125 


135 


POKEOP 


94 


362 












POMNICMD 


107 


124 












POVAL 


103 


363 












PTR 


123 


147 


174 
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RCODE 


62 


189 


192 


198 




340 


344 


347 




RDYADR 


90 


376 






READY 


142 


150 


172 




READYADR 


133 


147 


376 




RECVOP 


51 


300 






RP 


77 


78 


112 


190 


RPT 


125 








SENDOP 


52 


L'70 






SN 


77 


78 


79 


209 


SOCK 


98 


271 


301 


320 


SOURC 


63 








STRADR 


91 


377 






STROBEADR 


132 


174 


377 




STROBIT 


167 


177 


193 


277 


TOOLONG 


37 








TRANSRP 


135 


379 






TRIXRCD 


120 


132 


133 


134 


TRSLT 


131 


190 


192 


198 


UCDTA 


65 








UNSIGNED 


157 


159 


160 


200 


VAL 


83 


363 






WAITING 


32 


189 






WHOOP 


57 


241 






X 


331 


343 


344 
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10. 
11. 
12 
13. 
14. 

IS: 
16. 

17 
IB. 
19. 

20. 
21. 
22. 



27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 
50. 
51. 
52. 



{ CCWNDIO. TEXT 

{. 

■C CCWNDIO — Corvus CONCEPT Window Processing Unit 

•r 

{ (c) Copyright 1982 by Corvus Systems* Inc. 

{ San Jose. California 

■f. 

C All Rights Reserved 

■C 

{ v 1.0 04-01-82 MB Original unit 

{ v 1. 1 10-17-82 LEF Minor revision 

{ v 1. 2 12-17-82 LEF Expand window record to 48 bytes 

■C 

( . . 

{*R-} 

UNIT CCwndIO; 

INTERFACE 

USES -C*U CCL1B> CCdefiii 



■C attr*! flag - 
WfgGraf = 2 
WfgCursOn = 4 
WfglnvCur = 8 
WfgWrap ~ 16 
UfgScrdff = 32 
WfgClrPg =• 64 



lues - add together 

{ graphics mode > 

{ cursor on > 

{ inverse cursor > 

{ line wrap > 

{ scroll off } 

{ clear page > 



f. values of wn for WinSystem > 



{ current process window > 
{ cmd/msg window > 

{ root user window > 



■"XharSet; 
record 



WsysCuvr = 1 

WsysCmd = 2, 

WsysRoot = 3 

TYPE 

pCharSet 

CharSet 
'{length offset} 

{4 O > tblloc: pBytes; {character set data pointer} 

{2 4 > Ipch: integer; -Cscanlines per character (assume wid! 

{ 2 6 > bpch: integer; {bits per character (vertical height! 

{2 8 > frstch: integer; {first character code - ascii> 

{ 2 10 > lastch: integer; {last character code - ascii> 

{ 4 12 > mask: longint; {mask used in positioning cells} 

{ 1 16 > attrl: byte; {attributes} 

{ bit 0=1- vertical orientation} 

{ 1 17 } attr.2; byte; {currently unused} 

{ total 18 } end; 
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53. 




p 


WndRcd 




' -WndRcd 




54. 




WndRctf 




" record 




55. 


{ 1 e n g t h 


Of f SI' 


t> 






56. 


■C 


4 


(> 


> 


r.harp t: 


pCharSetr 


57 


■C 


4 


4 


> 


homep t: 


p B y t e s '; 


58 


■f 


4 





> 


curadr : 


pBy tes; 


5^ 


-t 


2 


12 


> 


homeof : 


integer; 


60. 


-c 


2 


14 


> 


basex : 


integer; 


61. 


< 


2 


16 


> 


basey : 


integer; 


62. 


< 


2 


18 


> 


1 n g t h x : 


integer; 


63. 




2 


20 


> 


1 n g t h y : 


j nteger; 


64. 


{ 


2 


2'.:' 


> 


rursx: 


integer; 


65. 


•{.' 


2 


24 


> 


'cursy: 


integer; 


66 


■{. 


2 


26 


> 


b i t o f s : 


integer; 


6 7 


■c 


2 


aw 


> 


yr org x : 


integer; 


68. 


■f 


2 


30 


> 


rj r o r g y : 


integer; 


69 




1 


32 


> 


attrl: 


by te, 


70 


v ' 


1 


33 


> 


•Jttr2: 


byte; 


72 


{ 


1 


34 


> 


«•"■ t a t e : 


byte; 


"•"3 


•r 


i 


3 b 


> 


rcdlen : 


byte; 


74 




1 


36 


:>■ 


attr3: 


byte; 


75 


f 


i 


3V 


> 


f ■ i. 1 1 1 


byte; 


76. 




I 


3H 


> 


f .1 1 1 2 : 


byte; 


77 


V 


I 


39 


> 


f i 1 13: 


byte; 


78 


i 


4 


40 


> 


fill 4: 


longint; 


7C 


■c 


4 


44 


> 


rasp tr : 


pliy tes; 


30 


-c t 


Jtal 


48 


j- 


t?nd; 





81 
82 
83 
84 
85 
86 
87 
88 
89. 
90 
91. 
"2. 
93 
94. 



{character se 
{home (upper 
•Ccurrent loc 
{bit offset o 
■Chome x value 
{home y value 
{maximum x va 
{maximum y va 
{current 
{current y va 
{bit offset c 
{graphics - o 
{graphics 
(inverse* und 
{v/h, graphic 
cursor inv/u^ 
{used for dec 
{window descr 
{enhanced cha 
{currently uni 
{currently urn 
{currently un 
{currently uni 
{window wor k i 



t recor 
left) p 
tion po 
f homi 
rel t 
rel t 
e, bi 
lue* bi 
lue> b i 
lue, bi 
f curre 
rig in x 
rig in y 
erscore 
s/char, 
nder lini 
oding e 
iption 
racter 
u s e d > 
used) 
used) 
used) 
ng stor 



d poin 

ointer 

inter) 

locat i 

o root 

o root 

ts rel 

ts rel 

ts rel 

ts rel 

nt add 

bits 

bits 

ins 

cur so 

e> 

scape 
record 
set at 



ter> 
> 

on} 
window} 
window} 
to window} 
to window} 
to window} 
to window} 

ress) 
rel to ho '. 
rel to ho ! 

rt) 

r on/off, 

sequences} 

length} 
tributes} 



age pointer} 



PROCEDURE CCumdlOxT.it; 



FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 

FUNCTION 
FUNCTION 



WinSy r. tern 
WinSelect 
WinDelete Cvar WR 
WinCreate 



WR: 



UinClrar 
WinStatuB 



(va 



FUNCTION WinLoadCh ( 



integer): 

WndRcd): 

WndRcd ) : 
WR: WndRcd; homex, homey* 
width, lngth* flags: integer): 
WR: WndRcd): 
ar homex, homey * width* lngth* 
curx.cury: integer): 
name: stringSO). 



integer* 
integer; 
integer; 

i nteger; 
integer; 

integer* 
integer; 



VSIXRF — Cross Reference Listing 
File ID: CCWNDIO. TEXT 



February 1, 1983 
Page 3 



95. 

96 

97. 

98. 

99. 
100. 
101. 
102. 
103 
104. 
105. 
106 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124 
125. 
126. 
127. 
128. 
129. 
130. 
131. 
132. 
133. 
134 
135. 
136. 
137. 
138. 
139. 
140. 
141. 
142. 
143. 
144. 



IMPLEMENTATION 



SENSE = 

CREATE = 1 

DELETE = 2 

SELECT = 3. 

CLEAR » 4 

STATUS = t> 



VAR 



display: integer; 



FUNCTION OSdispDv: integer; 

FUNCTION pOScurWnd: pWndRcd; 

FUNCTION pOSsysWnd (wndnbr: integer): pWndRcd; 



■C WinSystem ; 

< Select system window 

-C = root, 1 = current process window; 2 = msg/cmd 



FUNCTION WinSystem; < (wn. integer) > 

var ioiit: integer; ni)ptr.wptr: pWndRcd; 

beg in 

ni lptr : : = ni ) ; 

if wn -- O then wn : = 3; 

if wn -■ 1 

then begin 

UnitStatus ( d isp lay , ni lp tr\ SELECT ) ; iost 
else if wn in 1 .2. . MAXWINDOWJ then begin 
wptr : = pOSsysWnd (wn); 
if wptr = nil 

then iost : = ICFwndwn 
Rise begin 

UnitStatus ( d isp lay. wptr'", SELECT) ; 
iost .= IORESULT; end; 
end 
else iost : -- IUEwndwn; 
WinSystem := ioiit; 
end; 



extern ! 
ex tern ' 



= IORESULT, end 



{ WinSelect 

•C 



FUNCTION WinSelect; {(var WR: WndRcd)> 

begin UnitStatus ( d isp lay , WR, SELECT) ; WinSelect 



= IORESULT; end; 
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145. 
146. 
147. 
148. 
149. 
150 
151. 
152. 
153. 
154. 
155. 
156. 
157. 
158. 
159. 
160. 
161. 
162. 
163. 
164. 
165. 
166. 
167. 
168. 
169. 
170. 
171. 
172. 
173. 
174. 
175, 
176. 
177 
178. 
179. 
180. 
181. 
182. 
183. 
184. 
185. 
186. 
187. 
188. 
189. 
190. 
191. 
192. 
193. 



< WinDelete 



FUNCTION WinDelete; Cfvar WR: WndRcd)> 

begin UrutStatu<; (d i sp lay , WR, DELETE) ; WinDelete := IOFE 



•C WinCreate 



FUNCTION WinGreate; (u-ar WR: WndRcd, home x , h omey .■ 

ui j. ;i r h , In y t h / f i a g s ■ nitsqep) inteqei 
var CWpfr: pWndRcd; 
begin 

CWptr : -- pOS< urWnd; 

WR basi'x : = homex; WR. basey . -- homey; 
WR Ingthx •* width; WR. lngtf'ty : «■ )ngth; 
WR. attvl :* CWptr' attrl mud lu 
< WR. atti-2 ■:- fleig-j mod :LJ8, > 

WR. attr2 = (flags AND *7E) XCWp tr '\ a tt v2 AND *01)i 

WR c h a r p t : ~- C W p i; r •"' c 1 1 a r p t ; 

Uni tSt.qtuo ( d i. sp lay - WR, CREATE) ; 

W i n (. r e a t e •= J ORESl >L T ; 

end; 



i. W i nS tat t j « — - - — 

FUNCTION WinHtatus; {(vac home x , h omey , w:i d th , 'lng th . ci 
vsr iavt: integer; 

WS: record xhome. yhome, x leu, y J en : inteoer; 
WC ■ array CO. . J .2 of integer; 
b (■■> g i i ! 

Un ItStatus ( d l s p 1 a y , WS , STATUS ) ; 
iost ::■■■ IORESULT; 
if iost * then begin ' 

homex : =~ WS. xhome; homey := WS. yhome; 

width := WS. xlen; lnpth : * WS. ylen; 

Un i t Bt a t u <; < d j s p J. a y , WC , SENSK ) ; 

xost : « IURESULT, 

if iost = O then begin 

curx :- WCtO:i; cury : - WCtU, 
end; 
end; 
WinStaius : = iont; 
end; 



r x , cu r g . 
end; 



•C*P> 
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194. 


■C 


WinClear 




1.95. 
196. 


■C- 










197 


FUNCTK1N WinClear; Hvar WR: WndRcd>> 




198. 




begin UnitStatus ( d i ap lay, WR, CLEAR ) ; WinClear : 


= IORESULT; end; 


199. 








200. 








201 


<: 


Uinl.uitdCh — 




202. 


<■ 






203. 








204 


FUNCTION WinLoadCh; {(name: stnngSO): integer; > 




205 




type stv64 = str ing 1643; 




20* 




p«,tr64 -- ••st. -64; 




20 7. 




strtbl ~ array 1.1. 100D of pstr64; 




208. 




ii!.frt;bl * ■"•strtbl ; 




209. 




var result: mtegc-r, 




2 1 




sJ.s2. :>tr64; pi,p2: pstr64; p: pstrtM; 




211. 




l> e g i n 




212 




p . ■•- Qpl; pi . - esl; p2 : --• ("52; 




2 13 




; . l . = 'CSDISr '; s2 : = name; 




214 




WinLoadCh : ■■ call <'• CC. UNDMGR '. input, output, p" 


. 2); 


2 i '5 . 




end, 




216 








217. 








2J8 
219. 


< 
< 


(T . iv rl Tfli r\ i ! .... — 




Lv(Jlt(J lull) 1 l< .-.-..... _« -- ... — -.. — ._—.._ ,w — .. — -._ — «.— ___.-._ 

Unit initial! x a t :i. o n 




2.20 


<- 






221. 








222. 


P R OC E DUR E C C w i d i . i n i t ; 




223. 




begin display - Qfcid i upDv; pnd; 




224. 








225. 


END. i Unit CCumdlO > 




226. 








227. 
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98 


121 


177 


181 


186 


01 


164 










1 


33 


99 


122 


J 77 


187 


100 


207 










16 


28 










2 


25 


34 


100 


125 


162 


3 


35 


101 


121 






32 


29 










4 


26 


102 








5 


103 










64 


30 


205 








7E 


164 










8 


27 










ATTR1 


47 


69 


162 






ATTR2 


49 


70 


164 






ATTR3 


74 










BASEX 


60 


J 60 








BASEY 


61 


J 60 








BITOFS 


66 










BPCH 


43 










BYTE 


47 


49 


69 


70 


72 


CALL 


«14 










CCDEFN 


21 










CCWNDIO 


17 










CCWNDIOINI 


83 


222 








CHARPT 


56 


165 








CHARSET 


38 


39 








CLEAR 


102 


198 








CREATE 


99 


.166 








CURADR 


58 










CURSX 


64 










CURSY 


65 










CURX 


91 


187 








CURY 


91 


187 








CWPTR 


157 


159 


162 


164 


165 


DISPLAY 


105 


124 


130 


5 42 


149 


FILL1 


75 










FILL2 


76 










FILL3 


77 










FILL4 


78 










FLAGS 


88 


164 








FRSTCH 


44 










GRORGX 


67 










GRORGY 


68 










HOMEOF 


59 










HOMEPT 


57 










HQMEX 


87 


90 


160 


182 




HOMEY 


87 


90 


160 


182 




IOEWNDWN 


128 


133 








IOST 


118 
190 


124 


128 


131 


133 


LASTCH 


45 










LNGTH 


88 


90 


161 


183 




LNGTtdX 


62 


161 









VSIXRF — 


Cross R 


eference Lis 


ting 


File ID: CCWNDIO. 
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LNGTHY 


63 


J61 






LONG INT 


46 


78 






LPCH 


42 








MASK 


46 








MAX WINDOW 


125 








NAME 


92 


213 






NILPTR 


1 IS 


120 


124 




OSDISPDV 


107 


223 






P 


210 


212 


214 




PI 


210 


212 






P2 


210 


212 






PBYTES 


A 1 


37 


58 


79 


PCHARSET 


30 


56 






POSCURWND 


.1 OS 


159 






POSSYSWND 


.109 


1 26 






PSTR64 


;.'06 


207 


210 




PSTRTBL 


. 08 


210 






PWNDRCD 


53 


.108 


109 


118 


RCDLEN 


73 








RESULT 


',109 








St 


;-• i o 


2.12 


2 1 3 




S2 


;>;to 


212 


2 1 3 




SELECT 


101 


J 24 


130 


142 


SENSE 


98 


JB4 






STATE 


72 








STATUS 


103 


179 






STR64 


.705 


206 


210 




STRING 


205 








STRING80 


92 








STRTEL 


207 


20S 






TBLLOC 


41 








WC 


177 


.184 


187 




WFGCLRPG 


30 








WFGCURSON 


26 








WFGGRAF 


25 








WFGINVCUR 


27 








WFGSCROFF 


29 








WFGWRAP 


28 








WIDTH 


88 


90 


161 


183 


WINCLEAR 


89 


J 97 


198 




WINCREATE 


87 


155 


167 




WINDELETE 


86 


.148 


1.49 




WINLOADCH 


92 


204 


214 




WINSELECT 


85 


141 


142 




WINSTATUS 


90 


174 


1.90 




WINSYSTEM 


84 


117 


134 




WN 


84 


121 


122 


125 


WNDNBR 


.1 0° 








WNDRCD 


5j 


54 


85 


86 


WPTR 


118 


126 


127 


130 


WR 


85 
166 


86 
198 


87 


89 


WS 


176 


179 


1.82 


183 


WSYSCMD 


34 
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WSYSCURR 


33 




WSYSROOT 


35 




WWSPTR 


79 




XHOME 


176 


182 


XLEN 


176 


183 


YHOME 


176 


182 


YLEN 


176 


183 
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1. < TURTLE. TEXT > 

2. < 

3 < TURTLE — Corvus CONCEPT Turt leGraph ics Unit 

4. < 

5. < (c) Copyright 1982 Corvus Systems. Inc. 

6. < San Jose* California 

7. < 

8. < All Rights Reserved 

9. -C 

10. < v 1.0 09-17-82 LEF Original unit 

11. -C 

12. -C > 

13. -C*R-> 
14 

15. UNIT TurtleGraphics; 

16. 

17. INTERFACE 

18. 

19. CONST 

20. TurtleVersion = '1.0'; 
21. 

22. TYPE 

23. ScreenColor = ( none; white, black/ reverse, radar, blacfcl, green, 

24. violet, whitel, black2, orange, blue, white2 ); 
25. 

26. PROCEDURE InitTurtle; 

27. PROCEDURE Graf Mode; 

28. PROCEDURE TextMode; 

29. PROCEDURE ViewPort < left, right, bottom, top : integer); 

30. PROCEDURE PenColor ( c : ScreenColor); 

31. PROCEDURE FillScreen (c: ScreenColor); 

32. PROCEDURE Turn (degrees: integer); 

33. PROCEDURE TurnTo (degrees: integer); 

34. PROCEDURE Move (dist: integer); 

35. PROCEDURE MoveTo (nxtX.nxtY: integer); 

36. FUNCTION TurtleX: integer; 

37. FUNCTION TurtleY: integer; 

38. FUNCTION TurtleAng: integer; 

39. FUNCTION ScreenBit: boolean; 
40. 

41. 

42. IMPLEMENTATION 

43. 

44. -C*P> 
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45. CONST 

46. 

47. 

48. 

49. 

50. 

51. 

52. 

53. 

54. 

55. 

56. 

57. TYPE 

58. 

59. 

60. 



62. 
63. 
64. 
65. 
66. 
67. 
68. 
69. 
70. 
71. 
72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 
87. 



1 ; < mode values > 
0; 
-1; 

{ q,ual values > 



GrfMwhite = 
GrfMblack « 
GrfMflip « 

GrfGgrRel = 1 
GrfQgrAbs » P., 
GrfGchRel = 3 
GrfQchAbs = 4 



graphbuffer = record case integer of 

O: (pi: array LI.. 103 of integer); 
1: (pb: array CI.. 203 of -128. .127); 
end; 



curColor : 
curX* curY: 
cut An g : 
vpXl, vpYl: 
vpX2, vpY2: 
disp lay: 
buf : 



ScreenColor; 

integer; 

integer; 

integer; 

integer; 

integer; 



{. current pen color 

•C current turtle x, y 

•C current turtle angle 

•C viewport left, bottom 

■C viewport right, top 

< display unit number 



graphbuffer; i display command buffer 



{ SetOrigin 

< Set graphics origin 

< _ 



PROCEDURE SetOrigin (x,y: 
beg in 
with buf do begin 



integer); 



pbtl3 
piC23 
pbt73 
unitwr it 
end; 



= esc; 



pbC23 
piC33 



ord ( 'o ' ); 



(display, buf, 7); 



< set graphics origin 
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89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 
109. 
110. 
111. 
112. 
113. 
114. 
115. 
116. 
117. 
118. 
119. 
120. 
121. 
122. 
123. 
124. 
125. 
126. 
127. 
128. 
129 
130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 



■C DrawLine 

t 



PROCEDURE DrawLine ( xl* y 1* x2« y2: integer); 
var mode: integer* exchange: boolean; 

procedure clip (r<s: real; var nx.ny: integer); 
var rs: real; 
begin rs : * r+s; 

nx : = round ( (r*x2 + s*xl) / rs); 
ny : » round ( (r*y2 + s*yl> / rs); 
end; 

procedure flip; 

var t: integer; 

beg in 

t : * xl; xl : = x2; x2 : - t; 

t : =• yl; y 1 : = y2; y2:=t; 

exchange : * not exchange; 

end; 



beg in 

if curColor - non 

exchange : = FALSE; 

if x2 < xl then fli 

if x2 < vpXl then e 
else if xl < vp 

if xl > vpX2 then e 
else if x2 > vp 

if y2 < yl then fli 

if y2 < vpYl then e 
else if yl < vp 

if yl > vpY2 then e 
else if y2 > vp 

if exchange then fl 

case curColor of 

white* whitel* < 
green» violet* 
black, blackl, 
end; -Cease curC 

with buf do begin 

p b C 1 3 : = esc; i 
pit23 := xl; | 
piC43 := x2; \ 
pbE113 : « mode; 
unitwrite (disp 
end; 

end; 



e then exit (DrawLine); 



xit (DrawLine) 



XI then clip 


(vpXl- 


-xl 


x2-vpXl, xl. 


yl) 


xit (DrawLine 


) 








X2 then clip 


<vpX2- 


■xl 


x2-vpX2* x2 


y2) 


P ; 

xit (DrawLine 


) 








Yl then clip 


(vpYl- 


■yl 


y2-vpYl., xl 


yl) 


xit (DrawLine 


) 








Y2 then clip 


(vpY2- 


■yl 


y2-vpY2, x2 


y2) 


ip; 










white2 


mode 




OrfMwhite; 




orange* blue: 


mode 


: = 


GrfMf lip; 




black2 


mode 


: = 


GrfMblack; 




olor of> 










pb£23 : = ord( 


' 1 ' ) ; 








piC33 : « yl; 










pi [.53 . - y2; 











lay. buf* 11); 
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138 1' Graf Mode -4— • ■ ■ > 

139 < Switch to (graphics mode 

140. -c --4- : — > 

141 

142 PROCEDURE GrafMode; begin end; 

143. 
144 

145. { TextMode ~r > 

146 {. Switch to text mode 

147. < -I ■• •-> 

148. 

149. PROCEDURE Te^tMode; begin end; 

150. 

151. 

152. < ViewPort * > 

153. -C — f > 

154 

155. PROCEDURE VjiowPort {( left, right, bottom* top: integer)}; 

156. begin 

157. if <ljef ; t < right) and (bottom < top) then begin 

158. vbXl := left; vpYl := bottom; 
159 vpX2 : = right; vpY2 := top; 

160. e|n fli 

161. end, 
162. 

163. 

164. -C PenColor > 

165. C Set pen color 

166. < -4 > 

1.67 

168 PROCEDURE ffenColor -C ( c : ScreenCo lor ) >; 

1 69 . It e g i il 

170. case c of 

171. reverse; case curColor of 

172. white: curColor := black* 

173. black: curColor := white; 
174 blackl: curColor := whitel; 
175. green: curColor := violet; 

176 violet: curColor := green; 

177 whitel: curColor := blackl; 
178. black2: curColor := white2; 

179 orange: curColor := blue; 

180 blue: curColor := orange; 

181. white2: curColor :* black2; 

182. end; {case curColor of> 

183. radar: ; 

184. otherwise: curColor := c; 

185. end; -Cease c of> 

186. end; 
187. 

188. -f*P> 



VSIXRF - 
File ID: 

189. 
190. 
191. 
192. 
193. 
194. 
195. 
196. 
197. 
198. 
199. 
200. 
201. 
202. 
203. 
204. 
205. 
206. 
207. 
208. 
209. 
210. 
211. 
212. 
213. 
214. 
215. 
216. 
217. 
218. 
219. 
220. 
221. 
222. 
223. 
224. 
225. 
226. 
227. 
228. 
229. 
230. 
231. 
232. 
233. 
234. 
235. 
236. 
237. 
238. 
239. 
240. 
241. 
242. 
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•C FillScroen 

< Fill entire viewport with specified color 

< 



PROCEDURE FillScreen -C(c 
var density, integ 
begin 

density : = 0; 
if c - reverse 
then begin 

case curCo 
wh i te» 
green, 
orange 
black- 
end; C 
end 
else begin 

case c of 
white. 
greerii 
orange 
black, 
end; 
end; 
w i t.h buf do begin 



ScreenColor ) >; 
er; 



lor of 

whiteli whit 

violet 
b lue 

blackl, blat: 
case curColor of> 



density 
density 
density 
dens i ty 



whiteli white2 
violet 

blue 
blackl, black2 
case c o f > 



p b 113 
pi 123 
pit43 
pbtllJ 



= esc; 
= vpXl; 
~ vpY2- 

: ~ dens 



unitwrite <dis 



pbC2J 

pi C3J 

pYl+li piC53 

i ty ; 

p lay, buf i 11); 



densi ty 
density 
density 
density 



ord< 'f '); 

vpYl; 

vpX2-vpXl-+ 



•C Turn ■ 

< Turn turtle specified degrees (relative to current angle) 

-C 

PROCEDURE Turn {(degrees: integer))-; 
begin 

curAng := (curAng + degrees) mod 360; 
if curAng C O then curAng : = curAng + 360; 
end; 



•C TurnTo 

•C Turn turtle to specified angle (absolute) 

<; 



PROCEDURE TurnTo {(degrees: integer)}; 

begin curAng := 0' Turn (degrees); end; 
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243. -t Move > > 

244. -C Move turtle for specified distance 

2.45 < . • > 

246 

247 PROCEDURE Move {(dist: integer)}; 

248. var nxtX^nxtY: integer; curRad: real* 

249. begin 

250 (.urRad := curAnn * 3.1415927 / 180.0; 

251. nxtX . -• curX + round (dist * cos (curRad)); 

252. intY - curY + round (dist * sin (curRad)); 

253. drawl ine < c ur X, curY, nx tX, nx tY) ; 

254. nirX : ==• nxtX; curY :« nxtY; 
255 vrui; 

256. 
257. 

255. f Move To > 

259. < Move turtle to specified location (absolute) 

260. f -- } 

261. 

262 PROCEDURE MoveTo {(nxtX.nxtY: integer)}; 

263. begin 

264. drawl ine < curX, curY, nx tX« nx tY) ; 

265. rurX :- nxtX; curY : * nxtY; 

266. end; 
267. 

268. 

269. -C TurfcleX > 

270. < Return current turtle X coordinate 

271. -c: > 

272. 

273 FUNCTION TurtleX -C: integer}; 

274. begin TurtleX :~ curX; end; 

275. 

276. 

277. -t TurtleY > 

278. -i Return current turtle Y coordinate 

279. f > 

280 

281. FUNCTION TurtleY <: integer}; 

282. begin TurtleY : = curY; end; 
283. 

284. 

285. -C TurtleAng •> 

286. < Return current turtle angle 

287. < ■ > 

288. 

289. FUNCTION TurtleAng -t : integer}; 

290. begin TurtleAng : » curAng; end; 
291. 

292. <:*P> 



VSIXRF 


— 


- Cross Re 


ference Listing 


February 1 


198 


File ID: 


TURTLE. TEXT 


P 


age 


293. 


•C 


ScreenBit 














294. 


■c 


Return status of screen bit 






295. 


<- 














296. 










297. 


FUNCTION ScreenBit -C: boolean>; 






298. 




const RDBYTES = 7; 






299. 




type bytes = array CO. .13 of - 


128. . 127; 




300. 




var wbuf: record bent: integer; 


bptr: ''bytes; end; 




301. 




b: bytes; 






302. 




begin 






303. 




ScreenBit : ■ FALSE/ 






304. 




wbuf . bent := 1; wbuf.bptr := Qb 






305. 




with buf do begin 






306. 




SetOrigin (corXi curY); 


■C set graphics origin 


> 


307. 




unitstatus (d isp lay, wbuf , RDBYTES) ; < get byte from screen > 


308. 




if bC03 < then ScreenBit 


= TRUE; 




.309. 




SetOrigin (0, 0)i 


<. set graphics origin 


> 


310. 




endi 






311. 




end; 






312. 










313. 










314. 


< 


InitTurtl 














315. 


■C 


TurtleGraph ics unit initialization 






316. 


■C- 














317. 










318; 


PROCEDURE InitTurtle; 






319. 




var us: record xhome, yhome, x len 


ylen: integer; end; 




320. 




begin 






321. 




disp lay : = 1; 






322. 




with buf do begin 






323. 




pbtl3 : a esc; pbC23 : = ord( 


'J'); 




324. 




unitwrite ( d isp lay , buf » 2) ; 


i clear screen 


> 


325. 




pbtlJ :» esc; pbC23 := ord< 


'g'); 




326. 




unitwrite <d isp lay , buf , 2) ; 


{ set graphics mode 


>. 


327. 




SetOrigin (0,0); 






328. 




UnitStatus ( d isp lay » uis, 5) i 


i get window size 


> 


329. 




pbtll := esc; pbC23 := ord( 


' t ' ) ; 




330. 




unitwrite ( d isp lay » buf » 2) ; 


■C set text mode 


y 


331. 




end; 






332. 




curAng : = 0; < 


set initial angle 


y 


333. 




curColor := none; -C 


set initial pen color 


y 


334. 




vpXl 


»• 0; vpX2 := ws. xlen; < 


set view port left, right 


y 


335. 




vpYl 


- 0; vpY2 := ws. ylen; -C 


set view port bottom, top 


y 


336. 




curX 


« vpX2 div 2; < 


set initial X 


y 


337. 




curY 


= vpY2 div 2; < 


set initial Y 


y 


338. 




end; 






339. 










340. 


end. 
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49 
327 


59 
332 


196 
334 


200 
335 


211 


231 


240 


250 


299 


308 


1 


48 


50 


52 


59 


60 


80 


129 


203 


208 


215 




299 


304 


321 


323 


325 


329 










10 


59 




















11 


132 


133 


218 


219 














127 


60 


299 


















128 


60 


299 


















1415927 


250 




















180 


250 




















IB 


46 




















2 


53 


80 


81 


82 


129 


130 


201 


210 


215 


216 




324 


325 


326 


329 


330 


336 


337 








20 


60 




















3 


54 


81 


130 


202 


209 


216 


250 








360 


230 


231 


















4 


55 


131 


217 
















5 


131 


217 


328 
















7 


82 


83 


298 
















B 


301 


304 


308 
















BCNT 


300 


304 


















BLACK 


23 


126 


172 


173 


203 


211 










BLACK 1 


23 


126 


174 


177 


203 


211 










BLACK2 


24 


126 


178 


181 


203 


211 










BLUE 


24 


125 


179 


180 


202 


210 










BOTTOM 


29 


157 


158 
















BPTR 


300 


304 


















BUF 


70 
330 


79 


83 


128 


133 


214 


219 


305 


322 


324 


BYTES 


299 


300 


301 
















C 


30 


31 


170 


184 


197 


207 










CLIP 


94 


114 


116 


119 


121 












CURANG 


66 


230 


231 


240 


250 


290 


332 








CURCOLOR 


64 


no 


123 


171 


172 


173 


174 


175 


176 


177 




179 


180 


181 


184 


199 


333 










CURRAD 


248 


250 


251 


252 














CURX 


65 


251 


253 


254 


264 


265 


274 


306 


336 




CURY 


65 


252 


253 


254 


264 


265 


282 


306 


337 




DEGREES 


32 


33 


230 


240 














DENSITY 


194 


196 


200 


201 


202 


203 


208 


209 


210 


211 


DISPLAY 


69 


83 


133 


219 


307 


321 


324 


326 


328 


330 


DIST 


34 


251 


252 
















DRAWL I NE 


91 


110 


113 


115 


118 


120 


253 


264 






ESC 


46 


80 


129 


215 


,323 


325 


329 








EXCHANGE 


92 


106 


111 


122 














FILLSCREEN 


31 


193 


















FLIP 


101 


112 


117 


122 














GRAFMODE 


27 


142 


















GRAPHBUFFE 


58 


70 


















GREEN 


23 


125 


175 


176 


201 


209 










GRFWBLACK 


49 


126 


















GRFMFLIP 


50 


125 


















GRFMWHITE 


48 


124 


















GRFQCHABS 


55 
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GRFQCHREL 


54 














GRFQGRABS 


53 














GRFQGRREL 


52 














INITTURTLE 


26 


318 












LEFT 


29 


157 


158 










MODE 


92 


124 


125 


126 


132 






MOVE 


34 


247 












MOVETO 


35 


262 












NONE 


23 


110 


333 










NX 


94 


97 












NXTX 


35 


248 


251 


253 


254 


264 


265 


NXTY 


35 


248 


252 


253 


254 


264 


265 


NY 


94 


98 












ORANGE 


24 


125 


179 


180 


202 


210 




OTHERWISE 


184 














PB 


60 


80 


82 


129 


132 


215 


218 323 325 


PENCOLOR 


30 


168 












PI 


59 


81 


130 


131 


216 


217 




R 


94 


96 


97 


98 








RADAR 


23 


183 












RDBYTES 


298 


307 












REVERSE 


23 


171 


197 










RIGHT 


29 


157 


159 










RS 


95 


96 


97 


98 








S 


94 


96 


97 


98 








SCREENS IT 


39 


297 


303 


308 








SCREENCOLO 


23 


30 


31 


64 








SETORIGIN 


77 


306 


309 


327 








T 


102 


104 


105 










TEXTMODE 


28 


149 












TOP 


29 


157 


159 










TURN 


32 


228 


240 










TURNTO 


33 


239 












TURTLEANG 


38 


289 


290 










TURTLEGRAP 


15 














TURTLEVERS 


20 














TURTLEX 


36 


273 


274 










TURTLE Y 


37 


281 


282 










VIEWPORT 


29 


155 












VIOLET 


24 


125 


175 


176 


201 


209 




VPX1 


67 


113 


114 


158 


216 


217 


334 


VPX2 


68 


115 


116 


159 


217 


334 


336 


VPY1 


67 


118 


119 


158 


216 


217 


335 


VPY2 


68 


120 


121 


159 


217 


335 


337 


WBUF 


300 


304 


307 










WHITE 


23 


124 


172 


173 


200 


208 




WHITE1 


24 


124 


174 


177 


200 


208 




WHITE2 


24 


124 


178 


181 


200 


208 




WS 


319 


328 


334 


335 








X 


77 


81 












XI 


91 


97 


104 


112 


114 


115 


116 119 130 


X2 


91 


97 


104 


112 


113 


114 


116 121 131 


XHOME 


319 














XLEN 


319 


334 













VSIXRF" — Cross Reference Listu: 
File ID: TURTl E IK XI 



February 1, 1983 
Page 10 



Y 


7 7 


01 
















VI 


91 


98 


105 


1 14 


117 


119 


120 


121 


130 


V2 


91 


98 


105 


.1 16 


.1 1 7 


ue 


J19 


121 


131 


YHOME 


■AVI 


















VLEN 


:u9 


:a5 
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•C FCLKIO. TEXT 

< FCLKIO -— Corvus CONCEPT FORTRAN Clock Processing Unit 



(c) Copyright 1902 Corvus Systems. Inc. 
Han Joi.e> California 



9. 
10. 
11. 
12. 
13. 
14. 
15. 



All Rights Reserved 

v 1.0 10-22-82 LEF Original unit 



UNIT Ft Ik 10; 



17. 
18 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 



INTERFACE 

USES C*U CCLIB) CCt.lklOi 

PROCEDURE Clklnt; 
PROCEDURE ClkRd (var CPU: 
PROCEDURE ClkWr (var CPU: 



ClkPB); 
ClkPB); 



PROCEDURE ClkDay (var DateStr 

PROCEDURE ClkDtl (var DateStr 

PROCEDURE ClkDt2 (vaT DateStr 

PROCEDURE ClkDt3 (var DateStr 

PROCEDURE ClkTmJ (var DateStr 

PROCEDURE ClkTm2 (var DateStr 



ClkStr40 


In 


ClkStr40 


In 


ClkStr40 


In 


Cll<Str40 


In 


ClkStr40 


In 


ClkStr40 


In 



IMPLEMENTATION 

PROCEDURE Clklnt; 

PROCEDURE ClkRd; 

PROCEDURE ClkWr; 

PROCEDURE ClkDag 

PROCEDURE ClkDtl 

PROCEDURE ClkDt2 

PROCEDURE ClkDt3 

PROCEDURE ClkTml 

PROCEDURE ClkTm2 

END. 



j nteger ) 
i nteger ) 
integer) 
integer ) 
integer ) 
integer) 



begin CCclklQinit; end, 
begin ClkRead <CPB); end; 
begin ClkWrite (CPB); end; 
begin ClkWeekDay (DateStr); end; 
begin ClkDatel (DateStr); end; 
begin ClkDate2 (DateStr); end; 
begin ClkDate3 (DateStr); end; 
begin ClkTimel (DateStr) 
begin ClkTime2 (DateStr) 
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CCCLKIO 


19 








CCCLKIOINI 


33 








CLKDATE1 


37 








CLKDATE2 


38 








CLKDATE3 


39 








CLKDAY 


24 


36 






CLKDT1 


25 


37 






CLKDT2 


26 


38 






CLKDT3 


27 


39 






CLKINT 


21 


33 






CLKPB 


22 


23 






CLKRD 


22 


34 






CLKREAD 


34 








CLKSTR40 


24 


25 


26 


27 


CLKTIME1 


40 








CLKTIME2 


41 








CLKTM1 


28 


40 






CLKTM2 


29 


41 






CLKWEEKDAY 


36 








CLKWR 


23 


35 






CLKWRITE 


35 








CPB 


22 


23 


34 


35 


DATESTR 


24 
41 


25 


26 


27 


FCLKIO 


15 
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■C FCRTIO. TEXT 



3. i FCRTIO — Corvus CONCEPT FORTRAN CRT Control Unit 

4 -t 

5 C <(. ) Copyright 1902 Corvus Systems, Inc. 

6 < Ban Jose. California 



I 



AH Rights Reserved 

v l.o 10-20-82 LEF Original unit 



15. UNIT FrrtlO. 

16. 

17. INTERFACE 

18. 

1? USES C**U CCLTD> CCdefn, CCcrtIO; 

20. 

21. TYPE CrtArrBO = packed array CI.. 80D of char; 

22. 

23. PROCEDURE Crilni; 

24. PROCEDURE GoXY (var x.y: Long Int ) • 
25 PROCEDURE CrtAct (var cmd: Long Int); 

26. PROCEDURE CrtTtl (var txt: CrtArrBO; In: integer); 

27. PROCEDURE CrtPmt (var txt: CrtArrBO. lnl: integer; 

28. var opt: CrtArrBO; ln2: integer); 
29 PROCEDURE CriPau (var ch: char); 

30. FUNCTION Ucase (var ch: char): char; 

31 FUNCTION Get I (var num: integer): CrtStatus; 

32. FUNCTION GelLI (var num: Long Int): CrtStatus; 

33. FUNCTION GelSt (var buf: CrtArrBO; In: integer): CrtStatus; 
34 FUNCTION GetB: char; 

35. FUNCTION Tone (\zav t imbre. duration. per iod : Longlnt): Longlnt; 

36. 

37. 

38 IMPLEMENTATION 

39. 

40 PROCEDURE MakeString (a: CrtArrBO; In: integer; var s: string80); 

41. vav i. integer; 

42. bey in 

43. s : ••= "; 

44 for i : -■= 1 to. In do begin 

45. s : •- concat (s. ' '); s C 1 ength < s ) 3 := aCi3; end; 

46. end; 
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49. PROCEDURE Crtlnt; 

50. begin CCcrtlOinit; end; 
51. 

52. PROCEDURE GoXY; 

53 beqin GoToXY ( or d ( x ) , ord ( y ) ) ; end. 

54 

55. PROCEDURE CrtAct; 

56. war CC: record case integer of 
57 1: (li: Longlnt); 

58. 2: (fl: array CO. . 33 of -128. . 127; 

59 cmd. CrtCommand); 

60. end; 

61. beqin CC. li : = cmd; CrtAction (CC.cmd); end; 
62 

63 PROCEDURE Crt.Ttl; 

64. var s: string 80; 

65. beqin MakeString (txt, ln.s); CrtTitle (s); end; 
66 

67. PROCEDURE CrtPmt; 

68. var si, s2: stringSO; 

69. begin MakeString ( t x t, lnl , si ) ; MakeString (op t, ln2, s2> ; 
70 CrtPrompt (sl,s2); end; 

71 

72. PROCEDURE CrtPau; 

73. begin CrtPause (ch); end; 
74. 

75 FUNCTION Ucasei 

76 begin Ucase := Uppercase <ch); end; 
77. 

78 FUNCTION GetLl; 

79 begin GetLI .= GetLongNum (num); end; 
80. 

81 FUNCTION Get I; 

82 begin Getl .= GetNum (num); end; 
83 

84. FUNCTION GetB; 

85. begin GetB :- GetDyte; end; 
86. 

87. FUNCTION GetSt; 

88. var s: stringSO; status: CrtStatus; i: integer; 
89 begin MakeString (buf, In. s); 

90. status := GetString (s); 

91. if s = ' ' then s : = ' '; 

92. for i : = to leng th ( s >+l do bufCi+13 := sC13; 

93. GetSt .= status; 

94. end; 
95. 

96. FUNCTION Tone; 

97. begin 

98. Tone := ord4(Bel lTone ( ord ( t imbre ). ord ( duration ), ord ( per iod ))) ; 

99. end; 
1O0. 

101. END. 
102. 
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58 


92 






1 


21 


44 


57 


92 


127 


58 








128 


58 








2 


58 








3 


58 








80 


21 








A 


40 


45 






BELLTONE 


98 








BUF 


33 


89 


92 




CC 


56 


61 






CCCRTIO 


19 








CCCRTIOINI 


50 








CCDEFN 


19 








CH 


29 


30 


73 


76 


CMD 


25 


59 


61 




CRTACT 


25 


55 






CRTACTION 


61 








CRTARR80 


21 


26 


27 


28 


CRTCOMMAND 


59 








CRTINT 


23 


49 






CRTPAU 


29 


72 






CRTPAUSE 


73 








CRTPMT 


27 


67 






CRTPROMPT 


70 








CRTSTATUS 


31 


32 


33 


88 


CRTTITLE 


65 








CRTTTL 


26 


63 






DURATION 


35 


98 






Fl 


58 








FCRTIO 


15 








GETB 


34 


84 


85 




OETBYTE 


85 








GET I 


31 


81 


82 




GETLI 


32 


78 


79 




GETLONGNUM 


79 








GETNUM 


82 








GETST 


33 


87 


93 




GETSTRING 


90 








GOXY 


24 


52 






I 


41 


44 


45 


88 


LI 


57 


61 






LN1 


27 


69 






LN2 


28 


69 






LONG I NT 


24 


25 


32 


35 


MAKESTRING 


40 


65 


69 


89 


NUM 


31 


32 


79 


82 


OPT 


28 


69 






0RD4 


98 








PERIOD 


35 


98 






S 


40 


43 


45 


64 


SI 


68 


69 


70 




S2 


68 


69 


70 




STATUS 


88 


90 


93 
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STRING80 




40 


64 


68 


TIMBRE 




35 


98 




TONE 




33 


96 


98 


TXT 




26 


27 


63 


UCASE 




30 


75 


76 


UPPERCASE 




76 






X 




24 


53 




y 




24 


53 
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•C FGRFIO. TEXT 

■{. 

■C 

C 

•C 

■f. 

■C 



FGRFIO — Corvus CONCEPT FORTRAN Graphics Support Unit 



(c) Copyright 1982 Corvus Systems, Inc 
San Jose, Californi 



All Rights Reserved 

v l.o 10-23-82 LEF Original unit 



13. -C»R-> 



15. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 



UNIT KjirflO; 



INTERFACE 



USES C*U CCLID> CCdefn, CCgrflU. 



(var 



PROCEDURE Grlnit; 

PROCEDURE GrSetO ( va 

PROCEDURE GrPlot 

PROCEDURE GrDraui 

PROCEDURE GrHill <,var 

PROCEDURE GrC op y (var 

IMPLEMENTATION 



x 1, y 1 , qual : 
(var x 1 > y 1 , mod e : 



: 1, y 1, x2, y2, mode: 
x 1 , y 1 , wd , h t, den: 
x 1, y 1, ud, ht, x2, y2: 



Long Int) 
Long Int ) 
Long Int > 

Longlnt) 
L o n g I n t ) 



PROCEDURE Grlnit; begin CCgr flOinit; end; 

PROCEDURE GrSetO; beqm hietOr ig in (ovd (xl), ord ( y 1 > 

ord ( qual ) ) ; 

PROCEDURE GrPlot; begin PlotPoint (ord (xl), ord (yl) 

oid (mode ) ) ; 

PROCEDURE GrDrauj; b eg in DramLine (ord (xl), ord <yi) 

ord (x2), ord (.y2) 

ord (mode ) ) i 

(ord (xl), ord (yl) 

ord (wd), ord (ht) 

ord ( den ) ) ; 

(ord (xl), ord (yl) 

ord (wd), ord (ht) 

ord (x2), ord (y2) 



PROCEDURE GrFill; begin FillBox 
PROCEDURE GrCopy, begin CopyBox 

END 
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CCDEFN 


19 








CCGRFIO 


19 








CCGRFIOINI 


30 








COPYBOX 


41 








DEN 


25 


40 






DRAWL I NE 


35 








FORFIO 


15 








FILLBOX 


38 








GRCOPY 


26 


41 






GRDRAW 


24 


35 






GRFILL 


25 


38 






GRINIT 


21 


3Q 






GRPLOT 


23 


33 






GRSETO 


22 


31 






HT 


25 


26 


39 


42 


LONG I NT 


22 


23 


24 


25 


MODE 


23 


24 


34 


37 


PLOTPOINT 


33 








QUAL 


22 


32 






SETORIGIN 


31 








WD 


25 


26 


39 


42 


XI 


22 


23 


24 


25 


X2 


24 


26 


36 


43 


Yl 


22 


23 


24 


25 


Y2 


24 


26 


36 


43 
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1 -C FLBLIO. TEXT 

2. i 

3 -C FLBLIO — Corvus CONCEPT FORTRAN Label Processing Unit 

4. -C 

5 < (c) Copyright 1982 by Corvus Systems* Inc. 

6. < San Jose* California 

7. -C 

8 -C All Rights Reserved 
9. -C 

10. < v 1.0 11-01-82 LEF Oriqinal unit 

11. -t 

12. -C 

13. i*R-> 
14. 

15. UNIT Fib 110, 

16. 

17. INTERFACE 

18. 

19. USES -C*U CCLIB> CCrtefn, CClbllO; 

20 

21. TYPE LblArr80 = packed array CI.. 803 of char; 

22. 

23. PROCEDURE Lb 1 nil; 

24. PROCEDURE Lblnt; 

25. PROCEDURE LbOn; 

26. PROCEDURE LbOff; 

27. FUNCTION LbSet (var KN: Longlnt; 

28. v^jr LblStr: LblArr80; lnl: integer; 

29 var RetStr: LblArr80; ln2: integer): Longlnt; 

30. 

31. IMPLEMENTATION 

32. 

33. PROCEDURE Lblnit; begin CClbllOinit; end; 

34. PROCEDURE Lblnt; begin Lblslnit, end; 

35. PROCEDURE LbOn; begin LblsOn; end; 

36. PROCEDURE LbOff; begin LblsOff; end; 

37. FUNCTION LbSet; 

38. var i: integer; Is: LblKeyStr; rs: LblRtnStr; 

39. begin 

40. Is : * ' '; rs : -- ' ' ; 

41. for i := 1 to lnl do begin 

42. Is : « concat (Is,' '); 1 sC length ( Is ) 1 :■ LblStrCi]; end; 

43. for i := 1 to ln2 do begin 

44. rs := concat (rs, ' '); rst length (rs ) ] :* RetStrCi3; end; 
45 LbSet := ord4(LblSet ( ord (KN >, Is, rs ) ); 

46. end; 

47. 

48. END. 
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1 


21 


41 


80 


21 




CCDEFN 


19 




CCLBLIO 


19 




CCLBLIOINI 


33 




FLBLIO 


15 




I 


38 


41 


KN 


27 


45 


LBINIT 


23 


33 


LBINT 


24 


34 


LBLARR80 


21 


28 


LBLKEYSTR 


38 




LBLRTNSTR 


38 




LBLSET 


45 




LBLSINIT 


34 




LBLSOFF 


36 




LBLSON 


35 




LBLSTR 


28 


42 


LBOFF 


26 


36 


LBON 


25 


35 


LBSET 


27 


37 


LN1 


28 


41 


LN2 


29 


43 


LONG I NT 


27 


29 


LS 


38 


40 


0RD4 


45 




RETSTR 


29 


44 


RS 


38 


40 
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■C FOMNIO. TEXT 
•C 



FOMNIO — Corvus CONCEPT FORTRAN OMNINET Commands Unit 



( c; ) Copyright 1982 Corvus Systemsi Inc. 
San Jose, California 



All Rights Reserved 

v 1. O 10-26-82 LEF Original unit 



UNIT FomnlO; 



USES 

<*U CCI.T.B.T CCdefn, i 

PROCEDURE Oml nit; 

PROCEDURE OmSndM (v 

PROCEDURE OmSetR (v. 

PROCEDURE OmbndR 

PROCEDURE Oml'Trn 

PROCEDURE Ombcho 

PROCEDURE OmWho 



rs] t, BP, RP, sn. din, hln, dst: Longlnt); 

(var rslt, BP, RP, sn, din, hln: Longlnt); 

(var rs]t. sn: Longlnt); 

(var rslt: Longlnt); 

{var rslt, dest: Longlnt); 

{var rslt: Longlnt); 



IMPLEMENT AT I UN 



PROCEDURE Omlnit; 
PROCEDURE OmSndM; 



PROCEDURE OmSetR; 



PROCEDURE OmEndR; 



PROCEDURE Oml'Trn; 
PROCEDURE OmEcho; 



46 PROCEDURE OmWho; 



ord(hln), ord(dst) >, 



begin CComnlOinit; end; 

begin 

OCsndMesg (@BP,@RP, 

ord ( sn ) , ord (d In ) , 
rslt :- ord4(OCresult ) ; end;, 
begin 
OCsetRfccv (@BP,@RP, 

ord(sn), ord(dln), ord(hln)); 
rslt :~ ord4(OCresul t ) ; end; 
begin OCendRecv (ord(sn)); 
rslt - ord4(OCresult ); end; 

begin OCinitTrans; rslt := ord4(OCresul t > ; er 
begin OCechoTrans (ord(dest)); 
rslt :~ ord4(OCresult ) ; end; 
begin OCwhoAml; rslt := ord4<OCr esul t ) ; end; 
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BP 


23 


24 


34 


38 


CCDEFN 


20 








CCOMNIO 


20 








CCOMNIOINI 


32 








DEST 


27 


44 






DLN 


23 


24 


35 


39 


DST 


23 


35 






FOMNIO 


15 








HLN 


S3 


24 


35 


39 


LONG I NT 


23 


24 


25 


26 


ccec'r;cTRAr>i 


44 








OCENDRECV 


41 








OCINITTRAN 


43 








OC RESULT 


36 


40 


42 


43 


OCSETRECV 


38 








OCSNDMESG 


34 








OC WHO AMI 


46 








OMECHO 


27 


44 






OMENDR 


25 


41 






OM I N I T 


22 


32 






OMITRN 


2o 


43 






OMSETR 


24 


37 






OMSNDM 


23 


33 






QMUHO 


28 


46 






0RD4 


36 


40 


42 


43 


RP 


23 


24 


34 


38 


RSLT 


23 


24 


25 


26 
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1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
12. 
13. 
14. 
IS. 
16. 
17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 



FTURTLE — Corvus CONCEPT FORTRAN Turt leGraph ics Unit 



< FTURTLE. TEXT 

•C 

< 

■C 

< 

< 

< 

■C 

■c 
■c 
•c 

< 

■C*R-> 

UNIT Fturtle; 



USES -C*U CCLIB> Turt leGraph ics; 



(c) Copyright 1982 Corvus Systems/ Inc. 
San Jose. California 



All Rights Reserved 

v 1.0 10-23-82 LEF Original unit 



PROCEDURE InitTu; 
PROCEDURE Graf Mo; 
PROCEDURE TextMo; 
PROCEDURE ViewPo 
PROCEDURE PenCol 
PROCEDURE FilScr 
PROCEDURE TTrn 
PROCEDURE TTrnTo 
PROCEDURE TMov 
PROCEDURE TMovTo 
FUNCTION Turt IX 
FUNCTION TurtlY 
FUNCTION TurtlA 
FUNCTION ScrBit 

■C*P> 



(.war left, right, bottom* top : 

(var c: 

(var c: 

(var degree's: 

(var degrees: 

(.var dift: 

(var nxtX, nxtY: 

Longlnt; 

Long In t; 

Longlnt; 

boolean; 



Longlnt) 
Long Int ) 
Long Int) 
Longlnt ) 
Long Int ) 
Long Int ) 
Long Int ) 
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37. 
38. 
39. 
40 
41. 
42. 
43. 
44 
45 



48 
49. 
50 
51. 
52. 
53. 
54. 
55 
56. 
57. 
58. 



IMPLEMENTATION 
VAR SC record 
1: 
2: 

end. 
PROCEDURE InitTu; 
PROCEDURE GrafMo; 
PROCEDURE TextMo; 
PROCEDURE ViewPo; 

PROCEDURE PenCol; 
PROCEDURE FilScr; 
PROCEDURE TTrn; 
PROCEDURE TTrnTo; 
PROCEDURE IMov; 
PROCEDURE TMovTo; 
FUNCTION TurtlX; 
FUNCTION TurtlY, 
FUNCTION TurtlA; 
FUNCTION ScrBit; 

END. 



case integer of 



Long Int ) ; 

array CI. . 3.1 of -128. 

ScreenColor ); 



begin InitTurtle; end; 

beg 

beg 

beg 



OrafMode; end; 
n TextMode; end; 
n ViewPort (ord(left), ord(right), 

n SC. li := c; PenColor (SC. c 1 > ; end; 
n SC. li : - c; FillScreen <SC. cl>; end; 
n Turn ( or d ( degrees )) ; end; 
n TurnTo ( ord ( degrees )) ; end; 
n Move (ord(dist)); end; 
n MoveTo < ord (nx tX ) , ord (nx tY > ) ; end; 
n TurtlX := ord4< Turf 1-eX ) ; end; 
••= ord4(TurtleY); end; 
TurtlA : » ord4( Turt leAng ) ; end; 
= ScreenBit; end; 



beg 

beg 

beg 

beg 

beg 

beg 

beg 

begin TurtlY 

beg 

begin ScrBit 
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1 


39 


40 




127 


40 






128 


40 






2 


40 






3 


40 






BOTTOM 


24 


47 




C 


23 


26 


48 


CL 


41 


48 


49 


DEGREES 


27 


28 


50 


DIST 


29 


52 




FILL-SCREEN 


49 






FILSCR 


26 


49 




FL 


40 






FTURTLE 


15 






GRAFMO 


22 


44 




GRAFMODE 


44 






INITTU 


21 


43 




INITTURTLE 


43 






LEFT 


24 


46 




LI 


39 


48 


49 


LONG I NT 


24 


25 


26 


MOVE 


52 






MOVETO 


53 






NXTX 


30 


53 




NXTY 


30 


53 




0RD4 


54 


55 


56 


PENCOL 


25 


48 




PENCOLOR 


48 






RIGHT 


24 


46 




SC 


38 


48 


49 


SCRBIT 


34 


57 




SCREENBIT 


57 






SCREENCOLO 


41 






TEXTMO 


23 


45 




TEXTMODE 


45 






TMOV 


29 


52 




TMOVTO 


30 


53 




TOP 


24 


47 




TTRN 


27 


50 




TTRNTO 


28 


51 




TURN 


50 






TURNTO 


51 






TURTLA 


33 


56 




TURTLEANG 


56 






TURTLEGRAP 


19 






TURTLEX 


54 






TURTLEY 


55 






TURTLX 


31 


54 




TURTLY 


32 


55 




VIEWPO 


24 


46 




VIEWPORT 


*6 
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■C FWNDJG. TEXT 

< 

< FWNDTO -— Corvus CONCEPT FORTRAN Window Processing Unit 
i. 

< (c) Copyright 1982 by Corvus Systems; Inc. 
<. San Jose, California 



10 
11 



All Rights Reserved 

v 1.0 10-23-82 LEF Original unit 



17. 
IB 
19 
20. 

2 1 . 
22 



26. 
27. 
28. 
29 
30 
31. 

33. 
34. 
35. 
36. 
37 
38 
39. 
40. 
41. 
42. 



45. 
46 
47 
48. 
49. 
50 
51 
52 
53 



-C*R-> 

UNIT FwndlOi 

INTERFACE 

USES -C*U CCLIB> CCdefn, CCwndIO; 

TYPE WndArrSO = packed array CI.. 803 of char; 

PROCEDURE Wnlnit; 



FUNCTION 
FUNCTION 

FUNCTION 
FUNCTION 
FUNCTION 
FUNCTION 



WnSys (var wn: Longlnt): 

WnCre (var WR: WndRcd; var homex, homey / 

wid th, lngth, flags: Longlnt): 
WnSel (var WR: WndRcd): 
WnDel (var WR: WndRcd): 
WnClr (var WR: WndRcd): 
WnStat (var h ome x / homey , wid th, lngth/ 

curxi cury: integer): 
FUNCTION WnLoad (var name: WndArr80; In: integer): 



Longlnt; 

Long Inti 
Longlnt; 
Long Int; 
Long Int; 

Long Int; 
Long Int; 



IMPLEMENTATION 

PROCEDURE Wnlnit; 
FUNCTION WnSys; 
FUNCTION WnCre; 



FUNCTION WnSel; 
FUNCTION WnDel; 
FUNCTION WnClr; 
FUNCTION WnStat; 

FUNCTION WnLoad; 



begin CCwndlOinit; end; 
begin WnSys := ord4(WinSy stem (ord(wn) )); end; 
begin WnCre := ord4( WinCreate ( WR, ord ( homex ) , ord ( home I 

ord (width), ord(lngt! 
ord (flags > > ); end; 
in WnSel := ord4( WinSelect (WR)); end; 
in WnDel := or d4(WinDel ete (WR)); end; 
in WnClr : - ord4( WinClear (WR)); end; 
in WnStat := ord4(WinStatus ( homex, homey , wid th, lngt ! 

cur x, cury ) ); end; 
string80; 



beg 
b«g 
beg 
beg 

var 
beg i 
for 

WnLo 
end; 



integer; 
s : = ' '; 

: •- 1 to In do begin 
: -- concat (s, ' '); sC length (s ) 3 
d :- ord4(WinLoadCh (s)); 



nameCi3, end; 
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1 


21 


48 






80 


21 








CCDEFN 


19 








CCWNDIO 


19 








CCWNDIOINI 


36 








CURX 


31 


45 






CURY 
FLAGS 


31 
26 


43 
40 






FWNDIO 


15 








HOMEX 


25 


30 


38 


44 


HOMEY 


25 


30 


38 


44 


I 


46 


48 


4 9 




LNGTH 


26 


30 


39 


44 


LONG I NT 


24 


26 


27 


28 


NAME 


32 


49 






0RD4 


37 


38 


41 


42 


S 


46 


47 


49 


50 


STRING80 


46 








WIDTH 


26 


30 


39 


44 


WINCLEAR 


43 








WINCREATE 


38 








WINDELETE 


42 








WINLOADCH 


50 








WINSELECT 


41 








WINSTATUS 


44 








WINSYSTEM 


37 








WN 


24 


37 






WNCLR 


29 


43 






WNCRE 


25 


38 






WNDARR80 


21 


32 






WNDEL 


28 


42 






WNDRCD 


25 


27 


28 


29 


WNINIT 


23 


36 






WNLOAD 


32 


46 


50 




WNSEL 


27 


41 






WNSTAT 


30 


44 






WNSYS 


24 


37 






WR 


25 


27 


28 


29 



VSIXRF - 
File ID 



■ Crotis Reference 
CC. DWVIO. TEXT 



Listing 



February 1. 1983 
Page 1 



■f DRV 1(3. TEXT 



Corvus Disk Drive I/O unit 



( (. ) Copyright 1982 Corvus Systems, Inc. 
San Jose. California 



All Rights Reserved 



10. 
11. 
12. 
13 
14. 
15 
16. 
17. 
18 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31. 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 



{ 

-C 
{ 
< Purpose. 



1.0 05-28-82 DP Original unit 

l.Oe 23-Sep-82 DP Fixed firmware message 

2. O 09-16-82 cr/jk revh mods 

This unit is used by all of the Corvus utilities which talk 
directly to the Corvus drive (i.e.. not through the operating 
system driver). It can be used for both OMNINET and local 
disks. It can access any slot and any server. 



{•CO UNIT CCdrvIO; 



INTERFACE 



USES 

•C!CC> -C*U /CCUTIL/CCLIB> CCdefn, CCLnglnt; 



-CICO 
•C!CC> 



DrvIOversion 

CDbuf._max 

DrvBlkSize 

SndRcvMax 

low.„slot 

high_slot 

low _server 

h igh.„server 

MUX 

DrMax 



'2. 
1023; 
512; 
530, 

1; 
5; 
0; 
63 ; 
64 i 
7, 



■C Unit revision level ! 

-C max. no of bytes on send to OMNINET +! 



max server + 1 > 

Max nmbr of drives on disk server or Mux} 



SndRcvStT = RECORD 

sin: INTEGER; {send length} 
rln: INTEGER; -Crecv length> 
CASE integer OF 



PACKED ARRAY C 1 . 
ARRAY CI. 



END; 



SndRcvMax] OF CHAR); 
SndRcvMax] OF byte); 



50. 
51. 
52. 
53. 
54. 



DrvBlk 
-CICO 



RECORD CASE INTEGER OF 

1. (c: PACKED ARRAY CI. . 

2: (b: ARRAY CI. . 

END; 



DrvBlkSize] OF CHAR); 
DrvBlkSize] OF byte); 
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35. 

56. 

57. 

58. 

59. 

60. 

61. 

62. 

63. 

64 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 

81. 

82. 

83. 

84. 

85. 

86. 

87. 

88. 

89. 

90. 

91. 

92. 

93. 

94. 

95. 

96. 

97. 

98. 

99. 
100. 
101. 
102. 
103. 
104. 
105. 
106. 
107. 
108. 



hGst_types = 



= ARRAY CO. . cdbuf„max] OF byte; 

<user_station, 
f ile._server, 
pr inter_server, 
name_server, 
modem_.server, 
db... server) 
QN_interconnect, 

YOS nfltioyaij. 

SNA_gateway ) ; 



valid ___s lot = 1 o w__s lot. . high _s lot; 

va) id__server = 1 ow_server . . h i gh_server ; 



Slotno: 


Byte; 


< 


Kind: 


SlotType; 


< 


Netno: 


Byte; 


•C 


Stat ionno: 


Byte; 


•C 


Dr i veno: 


Byte; 


■c 


B 1 k n o : 


long int; 


•c 


END; 







Slot number 

Type of interface in slo 

Network number (UNUSED) 

OMNINET station address 

Disk drive number 

Disk block number 



DrRev -= ( NoDrv, RevA, RevB, RevH) ; 

DrSizes = (OldTenMB, FiveMB, TenMB, TwentyMB, FortyMB, SixtyMB, Hundre ! 

PhysDrlnfo = RECORD 

Sec tor s/trac k 

Trac: ks/Sec tor 

Cy 1 inders/Dr i ve 

Total nmbr of 512 byte blocks 

Drive size 

Drive controller revision 

true if a physical drive 

ROM version 

Firmware message (i.e. CF17. 3 

Firmware version number 





sp t : 


INTEGER 


•C 




tpc : 


INTEGER 


-C 




cpd : 


INTEGER 


< 




Capac i ty : 


LONG I NT 


<. 




DrSize: 


DrSi zes 


{. 




DrType: 


DrRev; -C 




Phy sDr : 


BOOLEAN; -t 




ROMvers: 


INTEGER; -C 




Firmflsg : 


STRINGCBTJ; -C 




FirmVers : 


INTEGER; < 




END, 




PDrArray 


= ARRAY CI. 


. DrMax3 OF Phys 


Sprtr ks 


= ARRAY CI. 


. DrMax] 


- INTE 



spares 



Sprtr ks; 



FUNCTION CDSlot ( Slotnum: integer): BOOLEAN; 

FUNCTION CDSlotlnfo ( Slotnum: integer): SlotType; 

FUNCTION CDBootlnfo (VAR Slotnum: integer; 

VAR Srvrnum: integer): SlotType; 

FUNCTION CDServer ( Server: integer ): BOOLEAN; 



PROCEDURE Initslot (VAR NetLoc: CDaddr 



); 



PROCEDURE CDsend 



( 



NetLoc: CDaddr; VAR st: SndRcvStr); 
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109 


PROCEDURE 


CDrecv 


( 


NetLoc: 


CDaddr; VAR 


110. 


FUNCTION 


CDread 


( 


NetLoc: 


CDaddr; -C i 


Ill 






VAK 


buf: 


CD.buf; -C i 


112. 








I en- 


integer i. i 


113. 






> 


integer; 


i 


114. 


FUNCTION 


CDwrite 


( 


NetLoc: 


CDaddr; < i 


115. 






VAN 


buf: 


CD_.buf; < . 


116. 








lf-n: 


integer -C i 


117. 






) : 


integer; 


i. ■ 


118. 


PROCEDURE 


Drvln j t 


(NetLoc: 


CDaddr; 


119. 






VAR NumDrives: 


INTFGER; 


120. 






VAR PhysDrivei 


■;: PDr Array ) 


121. 


PROCEDURE 


CCdrvIOn 


»it; 






122. 












123. 












124. 


IMPLEMENTATION 








125. 












126. 


■C*P> 











network address of 
data that is read 
number of bytes to 
returns disk error 
network address of 
data to be written 
number of bytes to 
returns disk error 



read 
c ode 

drive 

wr i t e 
code 
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127 
128. 
129. 
130. 
131 
132. 
1 33 
124 
135 
1 36 
137 
138. 
137 
140 
141. 
142. 
143 
144 
145. 
146. 
147 
148 
149 
150 



CONST 

Broadcast a<fd 



M i <:. c _ (Jmn i _ Et- r o r 

lnv_5fvr 
Inv Slot 



25t>, 

25JJ, 
254 
253 
252 



Miscellaneous ID error > 
Miscellaneous OMNINET error > 
Invalid server number > 
Invalid slot number > 



TenMBSi zfc = 18936; i Nmbr of blocks on a ten megabute drive > 



VAR 
•C 'CC> 

■f 'CO 



'CO 
'CO 
'CO 
'CO 



ivc slot: Val id_slot; i Current 10 slot in use > 

■i must be global with this name for Apple! 

...Kind: SlotType; { Current interface media type > 

k server: integer; C Current OMNINET disk server address > 

< must be global with this name for Apple! 



FUNCTION 0S..1C tSlt: 
FUNCTION OSoctSrv: 
FUNCTION 0Sr.lt Type 
FUNCTION OSSltDv : 



integer; 
integer; 
( si otnum: 
integer; 



EXTERNAL. 

EXTERNAL. 

SlotTupe; EXTERNAL. 

EXTERNAL. 
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1.51 i. 

15? < Procedure: CDB GOT INFO 

15-3 C 

154 {. Description. This procedure returns the boot slot number and type 

155 r 

156 < : 



157 


158 
1 ?? 


loO 


J t, 1 


16,.? 


163 


164 



FUNCTION CDBootlnfo < < VAR Slotnum: integer; 

VAR Srvrnum: integer): SlotType>; 

BEOIN 

Slotnum . =• USActSlt* 

Srvrnum •- USAc. tSrv. 

IF (Slstnum < low .slot) OR (Slotnum > high_slot) 
<!CC> THEN CDBootlnfo : = NoDisk ELSE CDBootlnfo := OSSltType (slotnum); 

EN)), 



169 


< 


Pro 


1 70. 


i 




1 7 1 


•f 


Dffs 


1 7 2. 
1 7:3. 


< 
< 




1 74 


■c 






C DSL OT INFO 

'I h i <-. procedure when given a slot number determine the ty 
of interface it ami the slot is allocated to. . . . 



175 

176 FUNCTION CDSlotlnfu {(Slotnum: Valid. Slut): SlotType>; 

177 BLX-IN 

178 {'CO CDSlotlnfo := OSSltType (Slotnum); 

179 END, 
180 

181. {*P> 
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182. 
183. 
184. 
185. 
186. 
187. 
188. 
189. 
190. 
191. 

193. 
194. 
195. 
196. 
197. 
198. 
199 
200. 
201. 
202. 
203. 
204. 
205. 
206. 
207. 
208. 
209 
210. 
211. 
212. 
213. 
214. 
215. 
216. 
217. 
218. 
219. 
220. 
221. 
222. 
223. 
224. 
225. 
226. 
227. 
228. 
229. 
230. 
231. 
232. 



■C 

{ Procedu 



•C Description: 



FUNCTION CDSlot -Kslotnum: valid slot): BOOLEAN >, 

BEGIN 
•C!CC> IF OS5lttype(slotnum) IN tLoc a IDi t. k , OmirinotDi stc :i 
THEN BEGIN 

Acti ve.,s lot : = slotnum; 
CDS) ot": = TRUE; 
END 
ELSE CDSlot := FALSE; 
END; 



< Procedure: 
•C 

■C Description: 
■C 

{ 



3lid serv 



»r ): 



FUNCTION CDServer -f. Serve 
BEGIN 

< y 

■i. validate that servernum is a disk server > 



BOOLEAN >; 



Di t. k __servBT 
END; 



Serve r / 



PROCEDURE Initslot f. (VAR Netloc: CDaddr)}, 
VAR x, g: INTEGER; 
BEGIN 
WITH Net Joe DO BEGIN 

= CDboot.lr.fo < x, y ); 



Kind 


= C 


S I o t n o 


= X 


Dr i vrno 


~ .1 


Netno 


= 


Stat j onno 


= g 


Blkno 


•-- 


END; 
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233. -C ' 

234. { Procedure. CDSEND 

235. < 

236. -C Description: This procedure send a disk command to the specified driv' 

237. < 

238. -C ■ ! 

239. 

240. PROCEDURE CDSend C(MetLoc: CDaddr; VAR st: SndRcvStr > }; 

241. VAR Drive_unit INTEGER; -C unit for sending/receiving commands' 
242. 

243. BEGIN 

244. IF (Netloc Slotno >~ l_oui_slot) OH (Net)oc. Slotno <-■ high slot) 

245. THEN BEGIN 

246. Activii_slot := NetLoc. Slotno; 

247. -CICO Drive ..unit : =■ OSSltDv; 
248. 

249. Cur. Kind : = NetLoc.Kind, 

250. IF Cuv_Kind = LocalDis* 

251. <!CC> THEN UNI TWRJTE <Drivt> unit, st. c* st. sin. 0, Act j ve._s lot > 

252. ELBE 

253. IF Cur_kind - Umninetd i r.k 

254. THEN BEGIN 

255. IF (NetLoc Stationno >= Low.server) OR (NetL.oc. Stat i onr.c ' 

256. THEN BfGIN 

257. Disk_server : - NetLoc. Stat ionno; 

258. -CICO UNITWRITE ( Dv ive_ un i t, st c . st s In, 0, Di s k _ server*^ ' 

259. END 

260. END; 

261. END; 

262. EN).); 
263. 

264 -C*P> 
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265 
266 

267 
268 

26? 

270 



275 
276 
277 
278 
•27? 
280 
281 
282 
283 
284. 
285 
286 
287. 
288 
28? 
290 
29 1 
292. 
293. 
294 
295 
296. 
297. 
298. 
299 
300. 
301. 
302. 
303. 
304. 
305. 



< . ; 

{ Procedure: CDRECv" 

■C 

{ Description: This procedure receives the response from the drive afte 

< <>ending a drive command. 



PROCEDURE CDRecv {(NetLoc.: CDaddr; VAR st: SndRc vStr ) >; 

VAR Drive unit. INTEGER* {unit for send ina/recei ving command* ' 
{'CO lor: INTEGER; 

begin 

{'CO ior : : 0; 

IF (Notice. Slotno < Low slot) OR (Net loc. Slotno > High_slot) 

THEN BEGIN St.cCU :- CHRUnv slot); st.rln := 1; END 
ELSE. BEGIN 

Act ive.. slot :- NetLoc SI otno; 
C ! CC > Or ) ve. un i t : = OSS). tDv; 

Cur Kind := NetLoc. Kind; 
IF Cur_Kind a LocalDisk 

THEN- BEGIN UN I TREAD (Drive uni t, st. c , st. r In, O, Ac tive._slot ) ! 
EL'C 

IF Cur _ kind ~ Omn irtetd isk 
THEN BEGIN 

IF (NetLoc. Stationno C Loui_server> OR (NetLoc. Stati ! 
THEN BEGIN St. cC13 := CHR ( Inv„srvr ) ; st.rln := 1! 
ELSE BEGIN 

D:isk ..server : ~ NetLoc. Stat ionno; 
UNITREAD (Dr ive._unit, st. c, st. r ln» 0, Disk._serve ! 
ior : = lORESULT;" 
END 
END 
ELSE BEGIN St.cflJ := CHR ( Inv_s lot ) ; st.rln := 1; END; 
END; 
{'CO IF (ior <>0) AND (ior O 4) { 4 is disk error > 127 > 
<!CC> THEN BEGIN st.cCU := CHR ( mi sc_err or ) ; st.rln := 1; END; 
END; 

{*P> 



C!CO 



<!CC> 
{•CO 
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306. -C 

307. { Procedure: CDREAD 

308. < 

309. -C Description: 

310. -C 

311. < • 

312. 

313. FUNCTION CDread {(NetLoc: CDaddr; VAR buf: CD__buf; len: integer): integl 

314. VAR xcv: SndRcvStr; Move_len, Count, T: integer; 

315. BEGIN 

316. Count : = 0; 

317. REPEAT 

318. WITH NetLoc. DO BEGIN 

319. -C > 

320. { build read command. . . > 

321. <. > 

322. xcv. sin := 4; xcv. rln .= 513; 

323. xcv. bC13 : = 50* 

324. T := LIntByte (1, Blkno); 

325. T : » T MOD 16i < save lower four bits > 

t*16 + Drivenoi < and store in upper four bits > 
LIntByte (3, Blkno); 

:= LIntByte (2,Blkno); 



326. xcv. bC23 

327. xcv. bC33 



328. xcv. bC41 

329. 

330. CDsend (NetLoc, xcv); CDrecv (NetLoc, xcv); 

331. 

332. IF Len > 512 THEN Move_len := 512 

333. ELSE Move_len := Len; 

334. <»R-> MOVELEFT ( xcv. b [23, Buf CCount*5123, Move_len ) ; <»R+> 

335. Count := Count+1, 

336. Blkno : * Blkno + 1; 

337. len:=* len-512; 

338. END; 

339. UNTIL (0RD(xcv. c C 1 3 ) > 127) OR (len <= 0); 

340. IF 0RD(xcv. ctl3) > 127 THEN CDRead :« QRD( xcv. cCll ) ELSE CDRead : = 

341. END, 
342. 

343. <*P> 
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344 
345 
346 
347 
348 
349 
350 
351 
352 
353 

355 
356 
357 
358 
359 
360 
361. 
362 
363. 
3<S4. 
365. 
366. 
367 
368. 
369. 
370. 
371. 
372. 
373. 
374. 
375. 
376. 
377. 
378. 
379. 



< Procedure: CDWRITE 

C 

■C Description: 



FUNCTION CDwrite {(NetLoc. CDaddr; VAR buf: CD_.buf; len: integer): inte! 
VAR xcv: SndRcvStr; Move_len, Count- T: integer. 
BECIN 

Count: : •= o; 
WITH NetLoc DO BEGIN 

REPEAT 

C > 

■C build write command... > 

C } 

xcv. t. in : - 516; xcv. rln :- 1; 

xcv. bflD . i.-. 51; 

T a LlntByted. Blkno); 

T : ■■- 7 MOD 16; i save lower four bits } 

xcv.bC2.'J : ss T*16 + Driveno; < and store in upper four bits > 

xcv. bt3J :=•--• LIntByte (3, Blkno); 

xcv bC4J : «= LIrttByte (2, Blkno); 

-C*R-> MOVELEFT (Buf CCount*512.] , xc v. b C53, 512); -C*R+> 

CDsend (NetLoc , xc v ) ; CDrecv (NetLoc < xc v ) ; 

Count : - Count+1; 

Blkno . i-' Blknn+1; 

Len : =■• Len- 512; 

UNTIL (ORD(xcv. cC13) > 127) OR (len O O); 

END; 
IF ORDtxtv. cdj) > 127 THEN CDWrite :» ORD( xc v. c C 1 J ) ELSE CDWrite : ! 
END; 
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380 


PROCEDURE Prv 


Init t( Netloc: CPadrtr; 


381 






VAR NumDrives: INTEGER; 


382 






VAR Phyr.Drivey: PDrArray)} 


383 




VAR x INTEGER; xcv: SndRcvStr; MaxSpTrk: 


384 








385 




PROCEDURE 


SetRbvAi 


386. 




VAR i 


integer; 


387 




BEGIN 




388 




N.jmDv 


ivcs - xcv. b C 1 3 mod 8; 


389 




FGR i 


- i TO NumDrives DU 


.'590 




WITH Phy5Driv<>stNumDrivesl DO BEGIN 


391. 






Upt : = 18; 


39.? 






Tpc - 3; 


3«?3. 






Cpd . = 350; 


394 






Capacity . = ienMBSize; 


395. 






IT Type : = RevA; 


396. 






r.paresli i : = 7, 


39 7 






I'rSize : - OldTenMB; 


39R 






END; 


399 




END, 


■CSc>tRpvA> 


400 








401 




FROCEDURt 


SfitDvv; 
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40-? 
40 '3 
406 
407. 
408. 
409. 
410 
411. 
412 
413. 
414 
415 
416 
417 
418 
419 
420. 
421 
422 
423 
424 
425. 
426. 
427 
428. 
429 
430 
431 
432 
433. 



Var i: integer; 

BEGIN 

F'OH i " I TO DrMax DO BEGIN 

xrv. r. In :- 2; xcv. rln := 129; 

x t . v b L 1 .1 : =■ 16; {status command} 

:<t v. I»l'2:i = i< 

CDSend ( NetLoc , x c v) ; CDRecv (NetLocx 

IF ORD(xcv. cCl ]) > 127 

THEN WITH PhysDr ivesC ill DO BEGIN 
DrTypt- : : - Nodrv; 
PhysDr : = FALSF ; 
Capac ] ty = 0; 

RomVers :- O; FirmVers := 0; 
F irmMt;g : = ' ' ; 
END 
ELSE WITH PhysDr ivtsC ill DO BEGIN 
NumDr i ves : = i ; 



Spt 


■-'■■ ORDCxcv. cC351) 




Ipr 


- ORD< xcv. cC36D ) 




Cpd 


■-- ORD(xcv. cC383) 
- ORD(xcv. cC373) 




Cpd 


= (Cpd*256>+x; 


IF Cpd - 358 THEN 


BEGIN 


DrT y pe : = RevB; 


MaxSpTrk: = 7; 


DrSi ze : = TenMB; END 


IF Cpd = 144 THEN 


BEGIN 


DrType : = RevB; 




MaxSpTrk: = 7; 
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434. DrSize : = FiveMB; END ELSE 

435. IF Cpd * 388 THEM 

436. BEGIN 

437. DrType : - RevBi 

438. MaxSpTrk: ™ 7; 

439. DrSize := TwentyMB; END ELSE 
440. 

441. IF cpd « 306 THEN 

442. BEGIN 

443 DrType :« RevH; 

444. IF Tpc ■= P. THEN 

445. BEGIN 

446. MaxSpTrk: = 31; 

447. DrSize := FiveMB; END ELSE 

448. IF Tpc = 4 THEN 

449. BEGIN 

450. MaxSpTrk:-- 31 » 

451. DrSize := TenMB; END ELSE 

452. IF Tpc = 6 THEN 

453. BEGIN 

454. MaxSpTrk: = 31; 

455. DrSi/e := TtuentyMB; 

456. END; 

457. END; 

458. IF xcv. bL'1073 = i THEN BEGIN 

459. PhysDr : = TRUE; 

460. ByteLInt (Capac i ty , O, xc v. b C41 1, xc v. b C403, x cv. b L3 ! 

461. END 

462. ELSE BEGIN 

463. PhysDr : = FALSE; 

464. ByteLInt (Capac i ty , 0, xc v. b C 1 103, x c v. b IT 1091, x c v b ' 

465. END; 

466. ROMvers : = ORD(xcv. CT343); 

467. FirmVers : = ORD( xc v. c C333 > ; 

468. FirmMfig := ' '; 

469. {'.CO MOVELFFT(xcv. bf 13, FirmMsg, 9); 

470. -CICO FirmMsgC03 := CHR(8); 

471. END; 

472. sparest i 3 : « MaxSpTrk; 

473. END; -CFOR> 

474. END; -CSetDrv> 
475. 

476. BEGIN 

477. -G > 

478. < send old reset command to determine drive type > 

479. -C > 

480. xcv. sin := 1; xcv.rln := 1; 

481. xcv. bCl 3 : * O; 

482. CDSend (NetLoc, xcv) ; CDRecv (NetLoc , xc v ) ; 

483. IF ORD(xcv. c C 1 3 ) > 127 then SetDrv 

484. else SetRevA; 

485. END; {Drvlnit> 
486. 

487. <*P> 
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488. -C 

489 { Procedure; CCdrvIQinit 

490. { 

491 C Description: CCdrvIO unit initialization 

492. <. 

493. --C 

494 

495. PROCEDURE CCdrvIDinit; 

496. BF.OfN EN))i 
497 

498. END. 

499 

500. 

501 

502. 
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295 301 316 

464 470 481 

c'80 292 299 

361 7362 371 

469 480 481 






35 


55 


226 


228 


251 


258 


278 


287 




339 


340 


354 


374 


376 


413 


414 


460 


1 


33 


46 


47 


51 


52 


94 


96 


225 




302 


323 


324 


335 


336 


339 


34 


360 




372 


374 


376 


388 


389 


404 


406 


409 




483 
















1023 


30 
















107 


458 
















108 


464 
















109 


464 
















110 


161 
















127 


339 


340 


374 


376 


409 


483 






129 


405 
















144 


430 
















16 


325 


326 


363 


364 


406 








18 


391 
















18936 


3 36 
















2 


47 


52 


326 


328 


334 


364 


366 


405 


252 


134 
















253 


133 
















254 


3 32 
















255 


.127 


131 














256 


258 


;'95 


4 23 












3 


327 


365 


392 












306 


441 
















31 


44 6 


4 50 


454 












33 


467 
















34 


466 
















35 


419 
















350 


393 
















358 


425 
















36 


420 
















37 


422 
















38 


421 
















388 


-135 
















39 


460 
















4 


301 


322 


328 


366 


448 








40 


460 
















41 


460 
















5 


34 


367 














50 


323 
















51 


361 
















512 


31 


332 


334 


337 


367 


373 






513 


322 
















516 


360 
















530 


32 
















6 


452 
















63 


36 
















64 


37 
















7 


38 


396 


428 


433 


438 








8 


91 


388 


470 












9 


469 
















ACTIVE 


139 


193 


246 


251 


258 


282 


287 


295 


ADD 


129 
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B 


47 


52 


323 


326 


327 


328 


334 


361 




367 


388 


406 


407 


458 


460 


464 


469 


BLKNO 


7 7 


228 


324 


327 


328 


336 


362 


365 


BROADCAST 


129 
















BUF 


55 


J 11 


115 


334 


367 








BYTE 


4 7 


52 


55 


72 


74 


75 


76 




BYTELINT 


4 60 


464 














C 


46 


51 


251 


258 


280 


287 


292 


295 




;tio 


374 


37 6 


409 


419 


420 


421 


422 


CAPACITY 


86 


394 


413 


460 


464 








CCDEFN 


26 
















CCDRVIO 


a i 
















CCDRVIOJNI 


121 


4 95 














CCLNGINT 


26 
















CD 


•■>5 


1 I 1 


1 15 












CDADDR 


71 


.1 O 7 


108 


.109 


110 


114 


1 18 




CD3O0TINF0 


:i 04 


158 


164 


223 










CDBUF 


30 


55 














C DREAD 


.1 10 


313 


34 












CDRECV 


.109 


273 


330 


369 


408 


482 






CDSEND 


.100 


240 


330 


369 


4 00 


482 






CDSERVER 


J 06 


307 














CDSLOT 


1 02 


1 89 


194 


196 










CDSLQTINFO 


J 03 


1 76 


178 












CDWRITE 


.1 14 


351 


376 












COUNT 


314 


316 


334 


335 


352 


354 


367 


371 


CPD 


85 


393 


421 


423 


425 


430 


435 


441 


CUR 


14 1 


249 


250 


253 


285 


286 


289 




DB 


62 
















DISK 


1.42 


212 


257 


258 


294 


2*95 






DR I VE 


24 1 


24 7 


251 


258 


274 


283 


287 


295 


DRIVENO 


76 


225 


326 


364 










DRMAX 


38 


94 


96 


404 










DRRF.V 


80 


88 














DRS1ZE 


87 


397 


429 


434 


439 


447 


451 


455 


DRSIZES 


81 


87 














DRTYPE 


88 


395 


41 1 


4 27 


432 


437 


442 




DRVBLK 


50 
















DRVBLKSIZE 


31 


51 


52 












DRV I NIT 


.1 18 


380 














DRVIOVERSI 


29 
















ERROR 


131 


.132 


302 












FIRMMSG 


91 


415 


468 


469 


470 








FIRMVERS 


92 


414 


467 












FIVEMB 


81 


434 


447 












FORTYMB 


81 
















GATEWAY 


64 


65 














HIGH 


34 


36 


67 


69 


163 


244 


255 


279 


HOST 


57 
















HUNDREDMB 


81 
















I 


386 


389 


396 


402 


404 


407 


410 


417 


INITSLOT 


107 


219 














INTERCONNE 


63 
















INV 


133 


134 


280 


292 


299 









299 302 339 
466 467 483 
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I OR 


275 


278 


287 


296 


301 














KIND 


73 


141 


223 


249 


250 


253 


285 


286 


289 






LEN 


112 


116 


314 


332 


333 


334 


337 


339 


352 


373 


374 


LINTBYTE 


324 


327 


328 


362 


365 


366 












LOCALDISK 


191 


250 


286 


















LONG I NT 


77 


86 




















LOW 


33 


35 


67 


69 


163 


244 


253 


279 


291 






MAX 


30 


55 




















MAXSPTRK 


383 


428 


433 


438 


446 


450 


454 


472 








MISC 


131 


132 


P»OP 


















MODEM 


61 






















MOVE 


314 


332 


333 


334 


352 














MUX 


37 






















NAME 


60 






















NETLOC 


107 


108 


109 


110 


114 


118 


222 


244 


246 


249 


255 




257 


279 


282 


285 


291 


294 


318 


330 


355 


369 


408 




482 






















NETNO 


74 


226 




















NODISK 


164 






















NODRV 


80 


411 




















NUMDRIVES 


119 


388 


389 


390 


418 














OLDTENMB 


81 


397 




















OMNI 


J 32 






















OMNINETDIS 


391 


253 


289 


















ON 


63 






















OSACTSLT 


145 


161 




















OSACTSRV 


146 


162 




















OSSLTDV 


148 


247 


283 


















OSSLTTYPE 


147 


1.64 


178 


191 
















PDRARRAY 


94 


.120 




















PHYSDR 


89 


412 


459 


463 
















PHYSDRINFO 


82 


94 




















PHYSDR IVES 


120 


390 


410 


417 
















PRINTER 


59 






















REV A 


80 


395 




















REVB 


80 


427 


432 


437 
















REVH 


80 


443 




















RLN 


44 


280 


287 


292 


293 


299 


302 


322 


360 


405 


480 


ROMVERS 


90 


414 


466 


















SERVER 


35 


36 


58 


59 


60 


61 


62 


69 


106 


:l 42 


2 1 2 




255 


257 


258 


29 1 


294 


295 












SETDRV 


401 


483 




















SETREVA 


385 


484 




















SIXTYMB 


81 






















SLN 


43 


251 


258 


322 


360 


405 


480 










SLOT 


33 


34 


67 


134 


139 


163 


193 


24 4 


246 


251 


258 




279 


280 


282 


287 


295 


299 












SLOTNO 


72 


224 


244 


24 6 


279 


282 












SLOTNUM 


102 


103 


104 


147 


161 


163 


164 


178 


191 


193 




SLOTTYPE 


73 


103 


105 


141 


147 














SNA 


65 






















SNDRCVMAX 


32 


46 


47 


















SNDRCVSTR 


42 


108 


109 


314 


352 


383 












SPARES 


100 


396 


472 
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SPRTRKS 


96 


100 




















SPT 


83 


391 


419 


















SRVR 


133 


292 




















SRVRNUM 


105 


162 




















ST 


108 


109 


251 


258 


280 


287 


292 


295 


299 


302 




STATION 


57 






















STATIONNO 


75 


227 


255 


257 


291 


294 












STRING 


91 






















T 


314 


324 


325 


326 


352 


362 


363 


364 








TENMB 


81 


429 


451 


















TENMBSIZE 


136 


394 




















TPC 


84 


392 


420 


444 


448 


452 












TWENTYMB 


81 


439 


455 


















TYPES 


57 






















USER 


57 






















VALID 


67 


69 


139 


















X 


220 


223 


224 


383 


422 


423 












X25 


64 






















XCV 


314 


322 


323 


326 


327 


328 


330 


334 


339 


340 


352 




360 


361 


364 


365 


366 


367 


369 


374 


376 


383 


388 




405 


406 


407 


408 


409 


419 


420 


421 


422 


458 


460 




464 


466 


467 


469 


480 


481 


482 


483 








Y 


220 


223 


227 
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1. 
2. 
3. 
4. 
5. 
6. 
7. 
8. 



12. 
13. 
14. 
15. 



P IPES. TEXT 

PIPES — Corvus Disk Pipes Unit 

Copyright 1982 Corvus Systems* Inc. 
San Jose. California 

All Rights Reserved 

v 1. O 01-08-82 LEF Original unit (taken from PIPES by PHB ) 

v 1. 1 03-24-82 LEF Added OMNINET support 

v 1. 2 06-16-82 DP Const II mods, clean-up 

v 1.3 07-31-82 DP Changes PIPESIIMIT parameters to LONGINT 



17. 
18. 
19. 
20. 
21. 
22. 
23. 
24. 
25. 
26. 
27. 
28. 
29. 
30. 
31 
32. 
33. 
34. 
35. 
36. 
37. 
38. 
39. 
40. 
41. 
42. 
43. 
44. 
45. 
46. 
47. 
48. 
49. 



-CICO UNIT CCpipes; 

INTERFACE 

USES 

-C!CC> -C*U CCLIB} CCDefn, CCLngInt, 

-CICO -C*U C2LIB> CCDrvIO; 



CONST 

PipesVersion 
PnameLen 

{pipe return codes 



PipeOk 

PipeEmp ty 

PipeNotOpen 

PipeFull 

PipeOpErr 

PipeNotThere 

PipeNoRoom 



= 0; 

= -8; 

= -9; 

= -10. 

= -11. 

* -12. 

= -13, 

= -14, 



PipeBadCmd 
PipesNotlnitted = -15; 
•Can error code less thai 
PipeDskErr = -255; 



{current version number} 
{size of a pipe name} 



{successful return code} 

{tried to read an empty pipe} 

■Cpipe was not open for read or write} 

■Ctried to write to a full pipe} 

•Ctried to open (for reading) an open pipe} 

•Cpipe does not exist} 

{the pipe data structures are full/ and the! 

is nc room for new pipes at the moment. . . } 
{illegal command} 
{pipes not initialized} 
l -127 is a fatal disk error} 



PNameStr 



PipeDebug : 



STRINGCPnameLenD; 
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50. 
51. 
52. 
53. 
54. 
55. 
56. 
57. 
58. 
59. 



FUNCTION pipestatus (VAR names, ptrs: DrvBlk): INTEGERi 



FUNCTION pipeoprd 
FUNCTION pipeopwr 
FUNCTION pipeclrd 
FUNCTION pipeclwr 
FUNCTION pipepurge 
FUNCTION piperead 
FUNCTION pipewrite 
FUNCTION pipesinit 



(pname 

( pname 

<np ipe 

( n p i p e 

(npipe 

(np ipe 

(np ipe, uilen: 

(baddr, bsi ze 



PNameStr ) 

PNameStr ) 

INTEGER) 

INTEGER) 

INTEGER) 

INTEGERi 



INTEGERi 

INTEGERi 

INTEGERi 

INTEGERi 

INTEGERi 

VAR info: 



DrvBlk): INTEGERi 
INTEGERi VAR info: DrvBlk): INTEGERi 
LONG I NT): INTEGERi 



PROCEDURE CCpipeinit (Netloc: CDaddr)i 



FiveByte - 26i {-*1A, indicates a four byte opcode} 
TenByte = 27i {=*1B, ten byte opcode. . . > 

{the following constants are used to select the type of request} 



61. IMPLEMENTATION 

62. 

63. CONST 

64. 

65. 

66. 

67. 

68. 

69. 

70. 

71. 

72. 

73. 

74. 

75. 

76. 

77. 

78. 

79. 

80. 

ei. 

82. 
83. 
84. 
85. 
86. 
87. 



OpnRd 
OpnWt 



C 1 o s e 
Status 



P I n i t 



192i -Copen pipe for read - *C0 > 
= 128i {open for write = *80 > 



- 32; -C-=*20, read pipe} 
: - 33i {=*21, write pipe} 



64; 
65; 



{=*40, close read or close write} 
{=$41, pipe status command} 



160; {initialize the pipes. 



{pipe state constants.. . . )• 

ClsWt = 254i { Close write = *FE > 
ClsRd = 253; { Close read = *FD } 
Purc^e - 0; ■ 

TYPE PipeName = PACKED ARRAY C 1 . . PnameLen 3 OF CHAR; 



89. 
90. 



VAR re ode: INTEGER; 

pbuf SndRcvStr; 
PipeNetloc: CDaddr; 

{*P} 
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91 FUNCTION result: INTEGER; 

92. {*♦*#**##*♦##****♦********##************#*»****#* 

93. < result - sends the command in pbuf to the drive and receives > 

94. -C the results. . . all pipe or disk errors are negative numbers > 

95. { here. ... > 
96 -C ***♦**##»**♦*******#«********♦**♦********♦*♦********♦******» 

97. VAR status: INTEGER; 

98. BEGIN 

99. WITH pbuf DO BEGIN 

100. IF pipedebug THEN WRITE ( 'req. = ' . b C 1 ] : 5, b C2] : 5, ' '); 

101 CDsend (PipeNetloc, pbuf); CDrecv (PipeNetloc, pbuf); 

102. IF pipedebug THEN WRITE ( 'rec: = ' , b L U : 5, b C23 . 5, ' '); 

103. IF ovd<(.:Cll) -Cdcode} > 127 

104 THEN status := ord(cL13) <dcode> 

103 FLSE status := ord < c C2] >*( -1 > -Cppcode>; 

106 IF pipedebug THEN WRITELN ('res =', status : 6) ; 

107. result:- status; 

108 END; 

109. END; 

110. 

in. «:*p> 
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112 

113. 

114 

115 

116. 

117. 

118. 

11? 

120 

121 

122. 

123 

124 

125 

126. 

127 

128. 

129 

130. 

131 

132. 

133. 

134 

135. 

136 

137 

138. 

139. 

140 

141 

142. 

143. 

144. 

145. 

146. 

147. 

r48. 

149. 

150 

151. 

152. 

153. 

154. 

155. 

156. 

157. 

158. 

159 

160. 

161. 

162. 

163. 

164. 

165. 



PROCEDURE getname (src: PNameStr; dest: INTEGER); 

- modifies dest so that it is exactly len chars long. > 

s less than len characters long* dest is padded with > 

if src is longer than len chars, dest is the first > 

of src > 

INTEGER; 



•C ge 
■C if 



tname 
src : 
lanks 
en char; 
*■ ■**■»•«■*■•» -j 
VAR n. 
BEGIN 
FOR n • 
IF 

END; 



= 1 TG Pn amal._r.ri tin 

n <~ LENGTH(src) THEN pbuf . c Edest-l+n] := srcCnl 
ELSE pbuf. cCdest-1+nJ := ' ' i 



FUNCTION pipestatus, 

■C FUNCTION pipestatus (VAR names, ptrs: DrvBlk ); INTEGER; > 
< pipestatus determines the status of the pipes by reading the > 
{ name and pointer tables from the disk. Each table is 512 > 
-C bytes in length, so 1024 data bytes are returned... > 

•{*#■»■##•«#*■■*■«■ *»**###########*#####*#*#■**#•»■»■•»••«•■»•*■*•* ****#*■»•»#•»##*■»■«•#■«■■«•.> 

VAR i: INTEGER; initnames: s tr ing C 163; 

BEGIN 

WITH pbuf DO BEGIN 



s .1. n 


: - 5; 




r In 


: ™ 513; 




bill 3 


: = FiveByte; 


{si?e> 


bi:23 


: - ortl (Status ) ; 


•{.command} 


bf 33 


: = 1; bC43 : = 0; 


bC53 : = 


END; 


■CWITH> 





nd; 



CDsend (P ipeNet 1 oc , pbuf ) ; CDrecv (Pi peNet 1 oc , pbuf ) ; 
IF pipedebug THEN BEGIN WRITELN< ' p i pe names'); 

FOR i:= 1 to 33 do write (pbuf. b C i 3 ) ; write In; 
rcode := ORD( p b uf . c C ID > -Cdcode}; 
IF rcode < 128 THEN BEGIN 

rcode : : = 0; {possible soft error, so ignore} 
MOVELEFT (pbuf.bC23, names. b£13, DrvBlkSize), 
IF pbuf. sln<3 THEN rcode :« ~ORD( pbuf . c C23 ) ELSE 
BEGIN 

initnames : = 'WOOFWOOFFOOWFOOW ' ; 
FOR i : = 1 TO 8 DO BEGIN 

IF names. cCi3 O initnamesli3 THEN rcode := p i pesnot ini tte ! 
IF names, c t i+5043 O ini tnames C i+83 THEN rcode := pipesnot! 
END; 
END; 
END; 

IF rcode=0 THEN BEGIN 
WITH pbuf DO BEGIN 



sin 
r In 
bC13 
bC23 
bC33 



= 5; 

= 513; 

= FiveByte; 

= ord(Status); 

= 2; b[43 



{size} 
{command} 
0; bC53 : = O; 
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166. END; {WITH} 

167. CDsencI (PipeNetloc. pbuf ) ; CDrecv (PipeNet ] oc, pbuf ) ; 

168. IF pipedebug THEN BEGIN WRITELN( ' p ip e ptrs'); FUR i:= 1 to 33 do 

169. wr ite ( pbuf . bC i 3 ) i writeln; endi 

170. rcode : = ORD( pbuf . c C 1 ] ) {dcodt>>; 

171. IF rcode < 127 THEN BEGIN 

172. rcode : = 0; {possible soft error* so ignor?> 

173. MOVELEFT ( pbuf . b C23, p trs. b L" 1 D » DrvBl kSi z e ) ; 

174. IF pbuf. sln<3 THEN rcode :« --ORD ( pbuf . t: C2 J ) ; 

175. END; 

176. END; 
177. 

178. pipestatus := rcode; 

179. END; -Cp ipestatus} 
180. 

181. -T*P> 
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182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
lVt 
193 
194 
195 
196 
197 
193 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 



FUNCTION pipeoprd; 

{ *#****#*#*##»***** ##******###*#*»###*****#*****##*#**^ > 

{ FUNCTION pipeoprd (pname: STRING): INTEGER > 

{ Opens pipe pname for reading. A pipe may not be open for both > 
{ read and write. IF spooling is true then the entire pipe list > 
{ searched until the name matches and the pipe is closed for read) 
{ If spooling is false then we only try to open the first one > 
{ wh ich matches. ... . > 

{ Returns the pipe number if successful* an error code otherwise. > 
<: ##*###**♦##**#**# **##**#***#*#*#»»*»##**#»#**##*^ > 

BEGIN 

WITH pbuf DO BEGIN 

sin : = lOi 

rln := 12, 

bi:i 3 : * TenByte; 

cl23 : ~ CHR(OpnRd) 

getname (pname, 3); 

END, {WJTH> 
re ode - result; 
I F ;■ r c o d e <. O 

THEN pipeoprd 

ELSE pipeoprd 
END; (pipeoprd} 



{ s i z e > 
{command} 
{pipe name) 



= rcode 

= pbuf. bC33 -Cpipeno}; 



FUNCTION pipeopwr; 

{ # *•*•*#♦ ##**■■»•♦•«■ #■**•»• *##**##**♦*#*♦**♦#*#*#*»*****#*##♦*#*#»****♦*♦*## > 
{ FUNCTION pipeopwr (pname. STRING): INTEGER; > 

{ Open a pipe for writing. Always allocates a new pipe. } 

{ Returns the pipe number or an error code. . . > 

{ #*##########*#######*##*##*##*################################*#■*#■ > 
BEGIN 

WITH pbuf DO BEGIN 
{*R-} sin := 10; 
rln := 12; 
bL13 : = TenByte; 
c[2 3 : = CHR(OpnWt) 
getname ( pname, 3); 
<*R + > END; {WITH} 
rcode : = result; 
IF rcode < O 

THEN pipeopwr 
ELSE pipeopwr 
END; {pipeopwr} 



{si ze} 
{command} 
{pipe name} 



rcode 

pbuf bC3] {pipeno}; 
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227. 
228 
229. 
230. 
231. 
232. 
233. 
234. 
235. 
236. 
237. 
238. 
239. 
240. 
241. 
242. 
243. 
244. 
245. 
246. 
247. 
248. 
249. 
250. 
251. 
252. 
253. 
254. 
255. 
256. 
257. 
258. 
259. 
260. 
261. 
262. 
263. 
264. 
265. 
266. 
267. 



FUNCTION closeit (npipe: INTEGER; which: BYTE): INTEGER; 

■C *####**#*####**######*####*##**#####*■#*#***##*■#*###■*######■** 

< closeit closes pipes for read* write, or purge depending on 

•C the value of which. . . . 

■C Returns OkCode if successful, error code otherwise. 

■C »***#****»**#**♦#**♦*♦**♦**#♦*♦****♦*#******♦**♦♦***#**«***♦ 

BEGIN 

WITH pbuf DO BEGIN 



-C*R-> sin 

r In 
bll] 
bC2D 
bC3] 
bC4] 
bt:5] 

<*R+> END; 
c losei t : 



5; 

= 12; 

= FiveByte; 

- ord (Close ) ; 

= npipe; 

= ord (which ) ; 

= 0; 
■CWITH> 
= result; 



■Csi ze> 
{command} 
■Cp ipenum> 
<state> 



END; -Ccloseit} 

FUNCTION pipeclrd; 

•C FUNCTION pipeclrd (npipe: INTEGER): INTEGER; 

■i close a pipe for reading. IF the pipe is empty, it will be 
■C deallocated. . . . Returns an error code. 

■C #####*#*####***###■*##*#####*#*##**#**######*######*####■*■###■*# 
BEGIN pipeclrd := closeit ( np i pe, CI sRd ) ; END; 

FUNCTION pipeclwr; 

•C *#»##*##»*****#*»»#*»#**##****##**#*#**#*##*##**#^ 

< FUNCTION pipeclwr (npipe: INTEGER) INTEGER; 

< close a pipe for writing... 

•C *******#***********#**#******»*********#»***#**^***^ 
BEGIN pipeclwr := closeit ( np ipe. C lsWt ) ; END; 



FUNCTION pipepurge; 

< FUNCTION pipepurge (npipe: INTEGER): INTEGER; delete a pipe > 

BEGIN pipepurge := closeit ( np ipe. Pur ge ) ; END; 
-C*P> 
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268. 
269. 
270. 
271. 
272 
273. 
274 
275. 
276. 
277. 

279. 
280. 
281. 
282. 
283. 
284. 
285. 
286. 
287. 
288. 
289. 
290. 
291. 
292. 
293. 
294. 
295. 
296. 
297. 
298. 
299. 
300. 
301. 
302. 
303. 
304. 
305. 
306. 
307. 
308. 
309. 
310. 
311. 
312. 
313. 
314 
315. 



FUNCTION pipeturite; 

•f *********************#*****#*****##********###****#*******##****#**** ! 
-C FUNCTION pipewrite ( np i p e, wlen : INTEGER; info: DrvBlk): INTEGER; > 
■C Write wlen bytes to pipe number npipe. O < ulen <— 512 ! 

•C Returns the number of bytes written or an error code. ! 

•C ********** ****************#********#******#*********#**************** i 

BEGIN 

WITH pbuf DO BEGIN 



s In 


= wlen + 5; 






r 1 n 


--- 12; 






u i i 3 


- riveBijte* 




isnei 


bi:ai 


= Wrt; 




{command > 


b 1. 3 3 


= npj.pe; 




(p ipenum> 


b i: 4 J 


~ wlen MOD 


256; 


■tlen. lo) 


bL53 


■= uilen DIV 


256; 


■CI en. hi 3 


END; 


CWTTH> 







MOVELEFT (info, b C 1 3. pbuf. bC63,uilen>; 



r r. ■ i <j e 



j 1 1 ; 



IF p:ode C 

THEN pipswrite 
ELSE pipewrite 

END; (.pipewr i te> 



• -■• r r o d e 

•- pbuf. bC43*256+pbuf. bC33 -Uen>; 



FUNCTICJN piperaad, 

■C **#**•«************************ ********** ***************************** » 

•C FUNCTION piperead (npipe: INTEGER; VAR info: DrvBlk ): INTEGER; > 
■C Read upto 512 bytes from pipe npipe. ' 

{. Returns number of bytes read or error code ' 

•C ********************************************************************* ! 
BEGIN 



{sue} 
(command} 
•Cp ipenum> 
■Clen. Io> 



WITH pbuf 


DO BEGIN 


sin 


= 5; 


r 1 n 


••= 516; 


b 1. 1 J 


.* FiveByte 


bl 23 


= Rd; 


b L 3 ) 


= npipe; 


b i: A J 


== 0; 


b r. 5 J 


= 2, 


END; 


CWITH> 



■CI en. hi> 



re ode : ~ resul t; 

IF re ode >= THEN BEGIN 

rcodp := pbuf . bC43*256+pbuf . bL33 den}; 

MOVELEFT (pbuf. b L 5 3 , info. bCU.rcode); 

END, 
p iperead : = re ode; 
END; -Cp iperead > 
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316 
317 
318 
31? 
320 
321 
322 
323. 



326. 
32 7 
328 
32? 
330. 
331 
332. 
333. 
334. 
335. 
336 
337 
338 
33«. 
340 
341. 
342 
343. 
344 
345. 
346 
347 
348. 



FUNCTIUN pippsiniti 

i ■*»■*• #•«•**•**■»■» **■»*** **#***#**##**#**##«#*#*#*********##****#***»***# 

•C FUNCTION pipesinit ( baddr , bs i z e: INTEGER): INTEGER; 

■C initialize the pipe data structures. baddr is the block number 

< at the start of the pipe buffer* bsize is the length in blocks. 

i' ■St-*****-**** *■»#****» **#*#**■«■#***•»■« #***###*##*#*#**##*******#**#**#* 

3EGTN 

IK ((baddr C O) OR (bsize < 0)) THEN BEGIN 

•Callow negative numbers if you want to start at > 32k> 

pipesinit : - PipeDskErr; 

EXIT (pipesinit); 

END; 
WITH pbuf DO BEGIN 



■C*R-> sin 
r 1. n 
b I 1 '] 
b L 2 'J 
b i.: 3 1 
b I 4 ] 
b I. 5 J 
b I. 6 1 

<*R + > END, 
p ipesinit 
END; 



: » 10; 
. - 12; 
: - TenBy t;e; 

= ord ( PIni t ) ; 
: - Lint Byte (3; 
: = LIntByte(2, 
: * Lint Byte (3, 

; = LlntBy te(2, 
-CWITH> 

R5Ulti 



i. size )• 
■ic ommand> 



baddr) 
baddr) 
bsize) 
bsize) 



■Caddr. lo> 
-Caddr. hi> 
-Cbuf si ze. lo> 
•Cbuf si ze. h i> 



PROCEDURE CCpipeinit {(Netloc: CDaddr)>; 
BEGIN 

p ipeDebuy - FALSE; 
P i p eNe 1 1 o c . — Ne 1 1. o c ; 
END; 

END 
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30 


82 


.140 


147 


159 


165 


172 


2.01 


221 


241 


286 




304 


308 


323 


















i 


84 


100 


102 


1 03 


104 


103 


121 


122 


123 


138 


140 




144 


143- 


148 


152 


163 


168 


170 


173 


176 


216 


-237 




378 


,384 


301 


310 


331 














10 


3:2 


194 


2.14 


329 
















n 


34 






















12 


35 


J 75 


21 5 


236 


277 


330 












127 


.103 


J 71 




















128 


69 


146 





















16 


J33 
















160 


77 
















192 


68 
















2 


100 


.102 


105 


139 


148 


149 


164 


165 




2 1 7 


238 


279 


302 


305 


332 


334 


336 


253 


81 
















254 


HO 
















255 


41 
















256 


281 


r'82 


288 


309 










26 


64 
















27 


65 
















3 


140 
303 


149 
309 


165 

333 


174 
335 


198 


203 


218 


223 


32 


71 
















33 


72 


144 


168 












4 


140 


165 


240 


281 


288 


304 


309 


334 


5 


100 
305 


102 
310 


136 
335 


140 


161 


165 


235 


241 


504 


154 
















513 


137 


162 














516 


300 
















6 


106 


284 


336 












64 


74 
















65 


75 
















8 


27 


31 


152 


154 










9 


32 
















B 


100 


102 


138 


139 


140 


144 


148 


163 




173 


3 96 


203 


216 


223 


237 


238 


239 




279 


280 


281 


282 


284 


288 


301 


302 




309 


310 


331 


332 


333 


334 


335 


336 


BADDR 


58 


323 


333 


334 










BSIZE 


58 


323 


335 


336 










BYTE 


227 
















C 


103 
197 


104 
217 


105 


122 


123 


145 


149 


153 


CCDEFN 


22 
















CCDRVIO 


23 
















CCLNOINT 


22 
















CCPIPEINIT 


59 


341 














CCPIPES 


17 
















CDADDR 


59 


88 















164 165 169 
240 241 2.78 
303 304 305 
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CDRECV 


101 


142 


167 










CDSEND 


101 


J 42 


167 










CLOSE IT 


227 


243 


252 


259 


265 






CLSRD 


81 


252 












CLSWT 


80 


259 












DEST 


112 


122 


123 










DRVBLK 


50 


56 


57 










DRVBLKSIZE 


148 


573 












FIVEBYTE 


64 


138 


163 


237 


278 


30 1 




GETNAME 


112 


198 


218 










I 


133 


144 


152 


1.53 


154 


168 


1.69 


INFO 


56 


57 


284 


310 








INITNAMES 


1 33 


151 


153 


154 








LINTBYTE 


333 


334 


335 


336 








LONG I NT 


58 














N 


119 


121 


1.22 


123 








NAMES 


50 


148 


1.53 


154 








NETLOC 


59 


344 












NPIPE 


53 
1303 


54 


33 


36 


37 


227 


239 232 239 263 


OPNRD 


68 


197 












OPNWT 


69 


217 












PBUF 


87 


99 


101 


122 


123 


135 


142 144 .145 148 




160 


167 


169 


170 


173 


1.74 


193 203 213 223 




275 


,784 


288 


298 


309 


310 


328 


PINIT 


77 


332 












PIPEBADCMD 


38 














PIPECLRD 


53 


246 


252 










PIPECLWR 


54 


254 


239 










PIPEDEBUG 


47 


lOO 


102 


106 


143 


168 


343 


PIPEDSKERR 


41 


325 












PIPEEMPTY 


31 














PIPEFULL 


33 














PIPENAME 


84 














PIPENETLOC 


88 


101 


1.42 


167 


344 






PIPENOROOM 


36 














PIPENOTOPE 


32 














PIPENOTTHE 


35 














PIPEOK 


30 














PIPEOPERR 


34 














PIPEOPRD 


51 


182 


202 


203 








PIPEOPWR 


52 


206 


222 


223 








PIPEPURGE 


55 


261 


265 










PIPEREAD 


56 


291 


312 










PIPESINIT 


58 


316 


325 


326 


338 






PIPESNOTIN 


39 


153 


1.54 










PIPESTATUS 


50 


126 


178 










PIPESVERSI 


26 














PIPEWRITE 


57 


268 


287 


288 








PNAME 


51 


52 


198 


218 








PNAMELEN 


27 


44 


84 


121 








PNAMESTR 


44 


51 


52 


1 12 








PTRS 


50 


173 












PURGE 


82 


265 
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RCODE 


86 


145 


146 


147 


149 


153 


154 


159 


170 


171 


172 




174 


178 


200 


201 


202 


220 


221 


222 


285 


286 


287 




307 


308 


309 


310 


312 














RD 


71 


302 




















RESULT 


91 


.1.07 


200 


220 


243 


285 


307 


338 








RLN 


137 


162 


195 


215 


236 


277 


300 


330 








SLN 


136 


149 


161 


174 


194 


214 


235 


276 


299 


329 




SNDRCVSTR 


87 






















SRC 


112 


122 




















STATUS 


75 


97 


104 


105 


106 


107 


139 


164 








STRING 


44 


J 33 




















TENBYTE 


65 


196 


216 


331 
















WHICH 


c>27 


240 




















WLEN 


57 


276 


281 


282 


284 














WRT 


72 


279 
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<. SEMA4. TEXT 



SFMA4 - — Corvus Disk Sema4s Unit 



Copyright 1982 by Corvus Systems, Inc. 
San Jose, California 



All Rights Reserved 



IS. 
19 



1.0 01-08-82 LEF Oriqinal unit (taken from SEMA4 by PHB ) 
1. l 06-15-82 DP Const II mods, clean-up 



(. ICO UNIT C0BEMA4; 

INTERFACE 

USES 

•{ICO <*U CCI...ID> CCdefn, 

< ICO 1»U C2I IB) CCdrvIOi 



CONST 

Semo4Rev 



' 1 . 1 ' 



28 
29. 
30 
31 
32. 
33. 
34. 
35. 
36. 
37. 



<. Return codes for the semaphore unit. 

< negative function return values indicate error conditions 

< return means no error (and not set prior to operation) 
■C *80 (128) return means key set prior to operation 

SemWasSet : = 128; -C the prior state of this semaphore mas locked 

SemNotSet = 0; ■{. prior state was unlocked 

SemP*ull = "253; -C semaphore table is full (32 active semaphores) 

SemDskErr = -255; < disk error during mrite thru 



TYPE 

SemStr 
SemKey s 
SemKeyList 



■C'CO 



38 
39 
40 
41 
42. 
43 

44. VAR 

45. Sema4debug 
46. 

47. f*P> 



= STRINGC83; 

= PACKED ARRAY CI. .83 OF CHAR; 

= RECORD CASE integer OF 

1: (skey: ARRAY El.. 323 OF SemKeys); 

2: (sbyt: ARRAY El.. 2563 OF byte); 

END; 
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48. FUNCTION SemLock (key. SemStr ) : INTEGER; 

49. FUNCTION SemUnlock (key: SemStr): INTEGER; 

50. FUNCTION SemClear: INTEGER; 

51. FUNCTION SemStatus ( VAR kbuf": SemKeyList): INTEGER; 

52. PROCEDURE CCSema4In i t (Net 1 oc : CDaddr); 
53. 

54. 

55. IMPLEMENTATION 

56. 

57. VAR 

58. xcv: SndRcvstr; 

59. SemNetloc: CDaddr; 
60. 
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62 -C **#*******♦♦*#*****#*♦*»*#***»♦■«■**#*♦**♦*»**♦*♦**#♦*#♦***#**##* > 

63. -C SemClear sends a command which inititalizes the semaphore table > 

64 < to blanks . > 

65. { *#♦**»******♦#**»♦*»***♦*******♦**#***♦****#♦*#*** > 

66. FUNCTION SemClear; 



6 7. 
68. 

69. 
70. 



BEGIN 

WITH x<.v DO BEGIN 



75. 
76. 
77. 
78. 
79. 
80 
81 
82 
83. -C*P> 



sin 

b I. 1 ] 

bl23 

bL3D 

b I". 4 :i 

bt.51 

END; 
CDsend (SemNetLoci xcv); CDrec v( SemNetLoc » xcv); 
IF sema4debug THEN uir i teln ( ' sem clear: '. xcv, bCUi 
IF ORD( xlv tCll) > 127 

THEN SemClear := -ORD< xc v. c C 1 3 ) 

ELSE SemClear : = 0; 
EN)); -C SemClear > 



= 5. xcv. r In : = 2; 

- 26; <5 byte commands are now lAXvs. A in rev A drives> 
= 16; 

- O; -Cdon't care about the rest of the bytes. . . > 
= 0; 
= 0; 



', xcv. bC23); 
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84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

103 

109 

110 

111 

112 

113 

114 

115 

116 

117 

1 1R 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 



FUNCTION ComKey (key: SemStr). INTEGER; 
VAR i: INTEGER; 
BEOIN 
WITH xcv DO BEOIN 

sin : = 10; xcv. rln : = 12; 

b r. 1 J : = Hi 

FOR i : = : 1 TO 8 DO 

IF i <:■» LENGTH ( key) 

THEN tCi+2J : = key till 
ELSE rCi+23 := ' '; 
END; ■ 
CDsend (SemNetLoc, xcv); CDrec v(SemNetLoc, xcv); 
IF Sema4clebug THEN WRITELN( ' comk ey results: 
IF ORD(xtv. (-C1.1) > 127 

THEN ComKey :» -ORD( xcv. c C 1 ] ) 
ELSE IF ORD( xcv. cC23) > 127 

THEN ComKey := ~ORD( xcv. c C23 > 
ELSE ComKey : = ORD< xcv. c C2D ) ; 

END; 



-C FUNCTION SemLock (key: SemStr): INTEGER; > 

-C KEY is an eight character string which is written into the > 
< semaphore table IF it was not there already. . . > 

■C ###****#######**#####*############■#########*##*########### > 
FUNCTION SemLock; 

BEGIN 

xcv. bC23 : = li 

SemLock : -- ComKey (key); 

END; 



■C FUNCTION SrmUnlock (key: SemStr): INTEGER; > 

{ delete a key from the sem table and indicate whether or not> 
■i it was there before.... return codes are described above. > 
•C ###*#**###############*#######*#*##*##■##*######*#*##■*##■*#* > 
FUNCTION SemUnlock; 

BEGIN 

xcv. bC2.1 : = 17; 

SemUnlock : * ComKey (key); 

END; 



■C*P> 
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130. 
131. 
132. 
133. 
134. 
135. 
136. 
137. 
138. 
139. 
140. 
141. 
142. 
143. 
144. 
145. 
146. 
147. 
148. 
149. 
150. 
151. 
152. 
153. 
154. 
155. 
156. 
157. 
158. 
159. 
160. 
161. 
162. 



•C FUNCTION SemStatus (kbuf: SemKeyList ) : INTEGER; > 

•C returns the actual semaphore table > 

FUNCTION SemStatus; 
BEGIN 

!5; xcv. rln : = 257; 



xcv. sin 
xcv. bCU 
xcv. bC23 
xcv. bC31 
xcv. bC43 
xcv. bC53 



26; 
65; 



CDsend (SemNetLoc; xcv); CDrecv(SemNetl_oc, xcv); 

IF sema4debug then u»r iteln ( 'sem status: '« xcv. bC 1D» 

IF ORD(xcv. cCM) > 127 THEN 

BEGIN 

SemStatus :* -CRD( xcv. c £ 1 3 ) ; 

EXIT (SemStatus); 

END; 
MOVELEFT (xcv. bL23» kbuf. sbytCl 'J. 236) ; 
SemStatus : = 0; 
END; 



PROCEDURE CCSem<a4Init {(Netloc: CDaddr)}; 
BEGIN 

Sema4debur( :- FALSF; 
SemNetloc : = Netlot:; 
END; 



' , xcv. bC2D); 



END. 
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ting 
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File ID: CC. 
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32 


72 


73 


74 


80 


140 


141 


150 






1 


38 


40 


41 


70 


77 


78 


79 


89 


90 96 


97 




98 


113 


137 


143 


144 


146 


149 








10 


88 




















11 


89 




















12 


88 




















127 


78 


97 


99 


144 














128 


31 




















16 


71 




















17 


125 




















d 


41 
125 


69 
138 


71 
143 


77 
149 


92 


93 


96 


99 


3 00 101 


133 


253 


33 




















255 


34 




















256 


41 


149 


















257 


136 




















26 


70 


137 


















3 


72 


139 


















32 


40 




















4 


73 


J 40 


















5 


69 


74 


3 36 


341 














65 


138 




















8 


37 


38 


90 
















B 


70 


71 


72 


73 


74 


77' 


89 


96 


3 13 125 


137 




138 


3 39 


140 


141 


143 


149 










BYTE 


41 




















C 


78 


79 


92 


93 


97 


98 


99 


100 


301 144 


146 


CCDEFN 


20 




















CCDRVIO 


21 




















CCSEMA4 


15 




















CCSEMA4INI 


52 


154 


















CDADDR 


52 


59 


















CDRECV 


76 


95 


3 42 
















CDSEND 


76 


95 


142 
















COMKFY 


84 


og 


100 


101 


114 


126 










I 


85 


90 


91 


92 


93 












KBUF 


51 


149 


















KEY 


48 


49 


84 


91 


92 


3 14 


126 








NETLOC 


52 


157 


















RLN 


69 


88 


136 
















SBYT 


41 


149 


















SEMA4DEBUG 
SEMA4REV 


45 
24 


77 


96 


143 


156 












SEMCLEAR 


50 


66 


79 


80 














SEMDSKERR 


34 




















SEMFULL 


33 




















SEMKEYLIST 


39 


51 


















SEMKEYS 


38 


40 


















SEMLOCK 


48 


111 


114 
















SEMNETLOC 


59 


76 


95 


3 42 


157 












SEMNOTSET 


32 




















SEMSTATUS 


51 


134 


146 


147 


150 












SEMSTR 


37 


48 


49 


84 














SEMUNLOCK 


49 


123 


126 
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SEMWASSET 


31 






















SKEY 


40 






















SLN 


69 


88 


136 


















SNDRCVSTR 


58 






















STRING 


37 






















XCV 


58 


68 


69 


76 


77 


78 


79 


87 


88 


95 


96 




97 


98 


99 


100 


101 


113 


125 


136 


137 


138 


139 




140 


141 


142 


143 


144 


146 


149 











File: CCLIB. BIT TEXT 



Page 



sooc :osr 

0002 4C?t 

90C4 0141 

0008 3E81 



1* , File cciib bit ten 

I* , Date: !3-Ka»-82 

3* 

4* , 

5* ; Cotirus CGXCEPT bit ainipu.it ion tunc sons 



GLOBAL BiTFLlF,Si?£ET,BiTuL£AR.SI77LsT.5K;F7R7.5Hif7:T,IU!lEBTT£ 



OOOA 


4ED0 




17» 
IB* 
19* 
20* 
21* 


600C 


205F 




22* 


OOOE 


4C9F 


0003 


23* 


0012 


01C1 




24* 


OQ 14 


3E81 




25* 


oon 


4EDC 




24* 
27* 
28* 
29 1 
30* 


0018 






31* 


0018 


zosr 




32* 


001A 


4C9F 


0003 


33* 


001E 


0181 




34* 


0020 


3Eei 




35* 


0022 


4EDC 




36* 
37* 
38* 



, Function SitFlip idata.bitr.u* integer > integer 

BITFLIf MOVE L <5P!*,A0 • AC •- :mrn adcress 

HOVEM.W <5P)e,D3-Dl , DO s bit nibi. 3i = ti.u word 
BCHG DCD1 : i : p the bit 

MOVE V Dl,(SPi p.ice changed wcra on stick 

JI1P (AC! : returr. to Pascal 



; Function SitSet idata.bitnut integer 



nteger , 



EITSET HOVE L (SPW.AD 

MOVEM V vSFu.Du-Cl 
ESE7 D0,Dl 
MOVE V Dl.(SP) 
JMF (AO) 



AC - return «daress 

DC = bit naot . Dj = dau we id 

set the b:t 

place changed wore on stick 

return tc fiscal 



function SitClear idau.bitnu* integer.- integer. 



MOVE L tSFW.AC 
MOVEM V vSFL.DG-Dl 
ECLR DO ,-Dl 
MOVE V Di, iSf> 
„ : MF (AO) 



wcto 



AC -. return address 

DO = b 1 1 n»b r D i ■ 

clear the bi t 

place changed word on stack 

return tc Pascal 



, Function SitTest tdata.bitnu* integer; fcoCiean. 



0024 


205F 




41* 


Bin 


EST MOVE - 


iSFW.AC 


002* 


40F 


0003 


42* 




MCVEM W 


i5P).,D0-Dl 


0O2A 


4257 




43* 




:lr V 


iSF> 


ooze 


0101 




44* 




BTST 


Dfl.Dl 


00 2E 


4704 




45* 




"BOFf S 


BTX 


0030 


1EBC 


0O01 


44* 




MOVE B 


•l.iSP) 


0034 


4ED0 




47* 
48* 


BTX 


JMF 


i AO » 



AC = return address 

DO = bit nabi . Dl = daw word 

assute taise - C 

test the bi i 

bit is on return tr oe 
return to Pascal 



File CCLIE.BIT.TEXT 



Page 



0034 205F 

0038 301F 

Q03A E248 

003C 3E60 

803E 4EDQ 



C0 40 2C5F 

0042 30iF 

0044 1348 

004* 3E80 

0048 4EDQ 



50* 
Si* 
52* 
53* 
54* 
55* 
56* 
57* 
58* 
59* 
JO* 
61* 
62* 
63* 
64* 
65* 



Function ShiftRt (data, integer), integer, 



SHIFTRT HOVEL (SP)f ,AC 

HOVE.W (SP/t.OO 

L5R.V 11,00 

HOVE.W D0,(SF) 

JHP (AG) 



, A0 = return address 
, DO = word to be shifted 
, shift it right 
, push result on stack 
, return to Pascal 



Function ShiftLt (data, integer): integer, 



SHIFTLT HOVEL ,SP)+,AO 

HOVE.W <S?)+,D0 

LSL.V 11, DC 

HOVE.W O0,(SP) 

JHP (AC) 



, A0 = return address 

, 00 = word to be shifted 

, shift it left 

, push result on stack 

i return to Pascal 



004A 

0O4A 205F 

004C 30 iF 

•304E ;E80 

5050 4ED0 



i9« 


, Function KakeEjte (n. integer) 


byte, 


70* 

71* 
72' 


HAKE BYTE 

HOVE . L 


iSP)+,A0 






73* 


HOVE.W 


1 5 F ) + , D 




get n 


74* 


HOVE B 


D3,<SP) 




return function value 


75* 


JHP 


<A0) 




return to Fascal 


77* 


END 









*EITCLEAH 
♦BiTFLIP 



00Q0i8+ *BITSET 
000000* *BI7TEST 



0Q00QC+ BTI 000034+ "SHIFTLT 
000024+ 'HAKEBYTE 0Q004A+ «SHIFTRT 



000040+ 
000036+ 



errirs 7? lines File CCLIB. BIT. TEXT 



File 
Site. 



cciib.ask. teit 
ll-J*n-83 



, Corvus CONCEPT operating system inter face 



IDENT CCLIBASM 

GLOBAL 0SictSit,GSictScv,G54ltSit,OSiUStv,U5»ttCrt 

GLOBAL 05s i tTjpe,05de»Type,0SsjsSixe .GacurSr 

GLOBAL OSstr»Dv,OSprttCv 

GLOBAL 0SmiDe»,uadispDi,05kybdDi,05tiiji 

GLOBAL CSotniDv.GSdci2Dv,GSdcilDv,C5sltLv,OSeitCRT 

GLOBAL pOSDserID,i>OSsysWftd,pOScuiVnd,p05cuiKb(i 

GLOBAL pO£devHaa,pOSdate,pC5s|sVoi ( pCScu:Vol 

GLOBAL p05s7sVrs,pG3sf sDat 

GLOBAL sGe t Di r.KFutuir, Key Press, BckFr ess 



clGde ' /ccos/os.gbi.isa. teif 



21* 
22* 
23« 



f i le os qbl asa text 
Date. 23- Jan-B3 



Corvus CONCEPT cpetitmg syst«a flit* structure equates 



Addition*! Corvus CGK'CEfT I <Q result codes 



C C C £■ G C 

G0003032 
•3CG0G0G3 

50000015 

OGGOGOii 



C00GO220 
GG0G302. 
C5G0GC22 
G900GG23 
3GG0Gu24 
0000GG2S 
C&G0G326 
G0G3G02? 

Q030002J 
3QG0C32S 
9G0OO02A 
0QO0Q02B 
QG00G02C 
GGOG002D 
O0O0OC 2L 



IGok equ G .-Good resuit, r.c error 

1 0£ ; n» de v equ I , invalid unn nuafaer/ mvai id device 

IGEioreq equ 3 .invalid i/G request 

lOEnotrn equ 21 , Transporter not ready 

I j£ t i&o t equ 22 .Tiaed out watting lor Ga.-unet event 

iOEnobuf equ 23 ,Read without a vaiid write butter 



ivtwnatn 
iOEwndbe 
i:iEwndcs 
iCEwnddc 
lOEwr.dds 
lOEwnciw 
ICEwndwr 
IQEwndwn 

iOEnodsp 
IGEnokyb 

iuEnot is 
itJEnooan 
SOEfiOprt 
IQEnfdrv 
lOEnodtc 



equ 32 .invalid window function 

equ 33 .Window create boundary 

equ 34 .invalid character set 

equ 35 .Delete current window 

equ ii .Delete systea w;ntiow 

equ 3/ . Inactive wmco* 

equ 3c .Invalid winuow record 

equ ii .Invdiic systea window nuaber 

equ 4G .uispiay driver not available 

equ 41 .Keyboard driver net available 

equ 42 .Tiaer driver not available 

equ 43 .OMKiNET driver not available 

equ 44 .Printer driver not available 

equ 4b ,Wo (loppy artve ai slot 

equ 44 .DdtdC&aa driver not available 



0303033! 
GGGGGG23 
OOO0O034 

C0O0GG35 
GJ00G334 
0O00OG3? 
03000031 
6005003? 



63' 

%64< 



IGEtbiid equ 50 .invalid uoie entry i!> 

iGEtblii equ 51 ,7'afcie full 

IQE'biiu equ 52 .Tabu entiy in use 

IGEkybte equ 53 .Keyboard transai ssion error 

iC'Euiopa equ 54 .invalid unit ilQ paraaetet 

iGEprain equ 55 , Invalid paraaeter bion ierqth 

lOEtnccd equ "54 , Invahd function code 

IGEciksf equ 5? , i.lcct ^hardware; aallunction 



00G0Q33C 
0000003D 
0GG0O03E 
0000003F 
SOG0004G 
00000041 
00000042 
00000043 
00000044 



I-GEirdsbi equ 60 input to read duffer disabled 

IOEordsbl equ 61 .Output to read butter disabled 

JGEiwdsbl equ 62 input to write buffer disabled 

6V* lOEawdsbl equ 63 .Output to write butter disabled 

70* iOEbsterr equ 64 .Sutter sue error 

71* lOEwsierr equ 65 .Write sue erior 

72* iOErsierr equ 66 .Head sue error 

73* iOEuarter equ 67 ,UAST hardware error (overrun, pa 
ICEpaderr 



in, parity, or f r a a i n q i 
equ 68 .Proportional spacing error (eicess pad chars teq> 



Fit*: CCLIB.OSI TEXT 



Fije 
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Page 4 



0&OGC18G 
00000184 

00000114 



00000000 
00000002 
GGG00Q04 
OCOOOOOi 
OCO0O00C 
00000010 
GOQOO014 
00000018 
QOOOGQiC 
00000020 
00000022 
00000026 
G0000028 
0000002A 
G0&0O32E 
30000032 
00000034 



0000003C 
00000040 
00000044 
00000048 
0000004C 
0OO0O04E 
00000052 
QQO0OG56 
0OOQO05A 
OOOOOOSC 



77* 








78» 


) Systea Coiion Point 


79* 








80* 


pSysCoa 


eqa 


$0180 


81* 


SysKybdFIg equ 


$0184 


82* 


SysByteScn equ 


$0186 


83* 








M* 








85* 


, System 


Conor 


Equat 


86* 








87* 


SCiorslt 


eqa 





88* 


SCprocno 


equ 


2 


8?* 


SCfreehp 


equ 


4 


90* 


SCj table 


equ 


8 


9i* 


SCsysout 


equ 


12 


92* 


SCsysm 


equ 


16 


93* 


SCdevtab 


equ 


20 


94* 


SCdirnaa 


equ 


24 


95* 


SCuUble 


equ 


28 


94* 


SCtoday 


equ 


32 


97* 


SCcodejt 


equ 


34 


98* 


SCnitpro 


equ 


38 


99* 


SCnuapro 


eau 


40 


100* 


SCprotbl 


equ 


42 


101* 


SCbootnm 


equ 


46 


102* 


SCaeaaap 


equ 


50 


103* 


SCbootdv 


equ 


54 


104* 








105* 








106* 




equ 


56 


107* 


,' 


equ 


58 


108* 


SCslttbl 


equ 


60 


109* 


SCrootw 


eqa 


64 


110* 


SCcurrw 


equ 


68 


111* 


SCcurrk 


equ 


72 


112* 


SCusend 


equ 


76 


113* 


SCvrsnbr 


equ 


78 


114* 


SCvrsdat 


equ 


82 


115* 


SCwndtbl 


equ 


86 


116* 


SCsusinh 


equ 


90 


117* 


SCsusreq 


equ 


92 


118* 









ipointer to address of SYSCOM 

.keyboard control flags 

idisplay driver - bytes per scan iine 



.word - I/O result 

.word - current process nuaber 

, i i n t - free heap pointer 

,lint - juap table pointer 

iiint - default output file pointer 

iiint - default input file pointer 

, lint - device (unit) table. pointer 

dint - directory naae suing pointer 

.lint - user table pointer 

iword - systea date 

,imt - code juap Uble pointer 

.word - next process nuaber 

.word - nuaber of processes 

;lint - process table pointer 

.lint - boot device naae pointer 

, lint - aeaory aap pointer 

iword - boot device nuaber 

, CONCEPT Additions 

,word - unused 

.word - unused 

,lint - slot table pointer 

,imt - root window record pointer 

iiint - current wind>w record pointer 

ilint - current keyboard record pointer 

.word - Constellation user ID 

.lint - current version nuaber string pointer 

flint - current version date string pointer 

,imt - window table pointer 

.word - suspend inhibit count 

.word - suspend request if non-iero 



file. CCUB.Q5l.TEIT 



Fage 5 



COOQQOOO 
OO00O0O4 
00000908 

oooooooc 

00080010 

00000014 
COC00018 
0G0O001C 
0OG0OO20 
00000024 
00000028 
OO00002C 
00G00G30 
GOOOOC 34 
30000038 
0000003C 
GOOOO04O 
QQ000044 
G0000048 
00000060 
00000064 
00030068 
GOOGOOoC 

SOOOG07C 
00000080 
00000084 
00000088 
3000008C 
00000090 
00000094 
00000098 



00000000 
00000004 
00030008 
3Q0000OC 
OOGOCOiO 
00000012 

eoooooH 

00000016 
00000018 
0000001K 



120 


» i 






121 


* , Systea 


Vecio 


Cq 


122 


* ; 






123 


» SVuwrite 


equ 





124 


» SVuread 


equ 


1 


125 


1 SVuciear 


equ 


2 


126 


SVubusy 


equ 


3 


12? 


* SVpat 


eqa 


4 


128 


» SVget 


eqa 


5 


12? 


SVinit 


eqa 


6 


130 


* SVopen 


eqa 


7 


131 


5Vciose 


equ 


6 


132 


SVwrchat 


equ 


9 


133 


SVrdchar 


equ 


1G 


134 


SVblkio 


equ 


11 


135 


» SVseek 


equ 


12 


136 


* SVnew 


eqa 


13 


137 


* SVdsp 


equ 


14 


138 


* SVaark 


equ 


15 


139 


» SVrlease 


equ 


16 


140 


SVaavail 


equ 


17 


141 


SVgetdir 


equ 


16 


142 


SVcrkpth 


eqa 


24 


143 


SVostat 


equ 


25 


144 


> SVnew4 


equ 


26 


145 


SVdsp4 


equ 


27 


146 








147 


SVcli 


equ 


31 


148 


SVgetvna 


equ 


32 


149 


SVvildi c 


equ 


33 


150 


SVflpdir 


equ 


34 


151 


SVschdit 


equ 


35 


152 


SVdelent 


equ 


36 


153 


SVputdir 


equ 


37 


154 


SVuinsti 


equ 


38 


155 








156 


, 






157 


, Meaory 


Hap Eq 


uat 


158 


, 






159 


HMlodta 


equ 





160 


» KWhidta 


equ 


4 


161 


HMlocod 


equ 


8 


162 


» MHhicod 


eqa 


12 


1631 


KMbtsw 


equ 


16 


164 


* MMbtdev 


equ 


18 


165 


HJtbtslt 


equ 


20 


166 


► HMbtsrv 


equ 


22 


167 


HMbtdrv 


equ 


24 


168 


» HMbtblk 


equ 


26 


169 









unit write 

unit tead 

unit cleat 

unit busy 

put 

get 

init 

open 

ciose 

writechar 

readchar 

blockio 

seek 

new 

dispose 

■aik 

release 

netory available 

get director* 

crack path name 

unit status 

new (longint) 

dispose (longint) 

co Mind line interpreter 
get voluae nates 
check valid directory 
flip directory 
search directory 
delete directory entry 
write directory 
unit install 



, lint - low data pointer 

, 1 l nt - high data pointer 

,lint - low code pointer 

i lint - high code pointer 

.word - boot switches 

,wotd - boot device nuiber 

,word - boot slot nuaber 

.word - boot server nuaber 

iword - boot drive nuaber 

.word - boot voluae block nuaber 



File CCLIB.OSI .TEXT 



Page 





171* 










172* 


; Unit 


Table 


Equates 




173* 








00OGO0O2 


174* 


UTiodn 


equ 


2 , 


Q0000004 


175* 


UTblf 


eqa 


6 


00000007 


176* 


UTitd 


equ 


7 


00000008 


177* 


UTdid 


eqa 


6 


OOO0GO10 


178* 


UTsix 


equ 


u 


00000014 


179* 


JTsIt 


eqa 


20 


00000015 


180* 


UTsrv 


equ 


21 


000000 i « 


181* 


UTdrv 


eqa 


22 


GC006017 


182* 


UTtfp 


equ 


23 


00000016 


183* 


UTsp,t 


eqa 


24 


00CCGQ19 


184* 


UTtp* 


equ 


25 


OGOOGOlA 


185* 


UTro 


equ 


26 


0000001 B 


186* 


UTfip 


equ 


27 


GOOOCOiC 


187* 


vTb 1 k 


eqa 


28 


£0000820 


188* 


UTien 


equ 


52 



lint - I/O driver pointer 

booi - blocked device fUg 

bool - nounted device ilag 

s 1 1 7 - device lii 

imt - device site 

byte - device slot 

byte - device server 

byte - disk drive nabi 

Byte - disk drive type 

byte - sectors per tuck 

byte - tricks per side 

boci - device read on.? 

oool - volume directory ri ii 

lint - disk base biocic 
entry ienath 



Slot Table Equates 





i 92* 


, 








C003GGG0 


193* 


STbtsit 


equ 





boot slot number 


GOOOOGGZ 


194* 


STbtsrv 


equ 


2 


boot server nusber 


3CCSO0C4 


195* 


STacsit 


eqa 


4 


active slot nuiber 


OQOOOOflt 


196* 


STacsrv 


equ 


6 


active server nuitoer 


50G00GC8 


197* 


STalslt 


equ 


8 


diternate slot number 


Q00G003A 


198* 


STalsrv 


equ 


lii 


alternate server nuaoet 


uGOOGuuC 


200' 


51 into 


equ 


12 


array ;i 5i oi 


-3GO0OGGO 


2C:« 


STatbr 


equ 


C 


slot nuaoer •, i-j< 


GOOGOOSi 


202* 


STtype 


equ n 




device type siottyp 


G0G00GC2 


203* 


STndrv 


equ 




nuaoer of drives 


03000034 


204* 
ZC5» 


STlRtOL 


equ 


* 


deuce info ienoia 



SOOiSiiGO 


21 


CStbiloc 


equ 





80005004 


2 i 1 


Cslpoh 


equ 


4 


vOOSCjOo 


212 


CSbpcfc 


equ 


=■ 


GOOGC-fluS 


ll i 


Cattstch 


equ 


6 


COS&GuGA 


;i4 


CSiastch 


«qa 


10 ; 


CDOGGOiSC 


2i5 


CS»ask 


equ 


12 


GOOOOOiO 


216 

2i7 


CSattrl 


equ 


14 


ooooaan 


218 


CSattr; 


equ 


i? 



JOOQOJCO 


123 


Wnchacpt 


equ 6 


00000034 


224 


VRhonept 


equ 4 


00000308 


225 


VRcuraar 


equ I 


OOOOOOOC 


226 


VRhoaeot 


equ 12 


G0G0QQ0E 


227 


* VRtasei 


equ 14 


D000001Q 


228 


VKoasey 


equ 16 


00000012 


22? 


VRlngttu 


equ IB 


00000014 


230 


WRingthy 


equ 23 


Q0G00916 


231 


VRcurs* 


equ 22 


00000018 


23 2 


Vhcursy 


equ 24 


GGGOGOU 


233 


' VRbitofs 


equ 26 


ooooaoic 


234 


w'RgrorgH 


equ 28 


BG00021E 


235 


VRgccrgy 


equ 3C 


00000220 


236 


» WRattri 


equ 32 


00000003 


235 


iimse 


equ u 


0GQGG001 


239 


undscr 


equ 1 


00000002 


240 


i asked 


equ 2 


30000003 


241 


vtddefit 


equ 3 


00000004 


242 


noainoif 


equ 4 


00000005 


243 


syswm 


equ j 


00000006 


2AV 


active 


equ 6 


QG0SO007 


245 
246 


suspend 


equ 7 


00000021 


247 
248 


WRattr2 


equ 33 


80000000 


24« 


vert 


equ 


O00G0O01 


250< 


graphic 


equ i 


00000002 


251 


curson 


equ 1 


00000003 


252 


invcurs 


eqa 3 


00000004 


253 


wrapoii 


equ 4 


00000005 


254 


nosctoll 


equ 5 


00000006 


255 


clrsc 


equ 6 


000110007 


256 

257 


vidset 


equ 7 


O00O0022 


258 


VRstate 


equ 34 


00000023 


25? 


VRrcdlen 


equ 35 


00000024 


260 


VRattr3 


equ 36 



Charade: Set Record Equates 



, Window Record Equates 



character set data pointer 

scaiUines per character assutie w : j e / 

ins per character (vertical height) 

urst character code - ascn 

last character code - ascn 

nasi used m positioning cells 

attributes 

oit = 1 - vertical orientation, 
currently unused 



character set pointer 
hole tupper lett; pointer 
current location pointer 
bit oiiset ct none location 
hoxe t value, relative tc root window 
hose y value, relative to root window 
aaiiaum k value, relative to window ibits) 
aasiiua y vaiue, relative lo window \ b 1 1 s ' 
current i saiue : bi ts ) 
current y value ibits.' 
bit offset cf current address 
rapines - origin x <Dits relative to hoie 
raphics - origin y -.nits relative to hose 
ttributes 

inverse vioeo aode 

underscore node 

insert mode 

G = V on B, 1 = S on V 

= auto U w/CR, l - no auto U 

systen defined window 

active window 

suspended window 



i = vertical, 

l = graphics, 

1 - cu:sor on, 

1 = inverse, 

I * wrap, 

1 = no scroll, 

1 = paging node 

i s inverse 



- horiicntai screen 
= character aode 
= cursor off 
= underline cursor 
i = clip at ealn 
= scroll 



used for decoding escape sequences 
window description record length 
enhanced character set attrioutes 
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03000025 


261* 


vRtiin 


equ 


37 


, current ly unused 


JGG0GG26 


262* 


VRfilU 


equ 


38 


, currently unused 


OCOOOuI? 


263* 


VRfill3 


eqo 


39 


; current ly unused 


QCOC3ii23 


264* 


VRfilM 


equ 


40 


,corrently unused 


03OO&GSC 


265* 
266* 


VRwwsptr 


eqo 


44 


.window working storage pointer 


0003&030 


267* 
263* 


VRiength 


eqo 


48 


,actuai window record length 
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OOQQ 

0000 2278 0100 

0004 2269 003C 

5008 3F69 0004 0004 

000E 4E75 



0010 

0010 2278 0180 

0014 2269 003C 

0018 3F69 0006 0004 

001E 4E75 



0020 

0020 2276 0180 

0024 2269 003C 

0028 3F69 0008 0004 

0C2E 4E75 



0030 

0030 2278 0180 

0034 2269 003C 

0038 3F69 OOOA 0004 

Q03E 4E75 



0040 

0O4Q 422F OQ04 

0044 207C 0003 0F61 

0Q4A 0810 0003 



270* 
271* 
272* 
273* 
274* 
275* 
276* 
277* 
278* 
279* 
280* 
281* 
282* 
283* 
284* 
285* 
286* 
287* 
288* 
289* 
290* 
291* 
292* 
293* 
294* 
295* 
296* 
297* 
298* 
299* 
300* 
301* 
302* 
303* 
304* 
305* 
306* 
307* 
308* 
309* 
310* 
311* 
312* 
313* 
314* 
315* 
316* 
317* 
318* 
319* 
320* 
321* 
322* 
32** 



05ACTSLT - Get active slot function 

FUNCTION OSactSIt; integer, 

OSactSIt 

aove.l pSjsCoa.w.al 
■ore. I SCslttbllal),at 
aove.w STacsltUl>,4tsp) 
rts 

OSACTSRV - Cet active server function 
FUNCTION OSactSrv: integer, 



,Get pointer to SysCon 

, Get pointer to slot tibie 

;Get active slot froa slot uble 

.Return 



aove.l pSysCoa.w.al 

aove.l SCslttbl(ai),al 

aove.w STacsrv(al),4(sp) 
rts 



,Cet pointer to SysCoa 

iC-et pointer to slot Uble 

iCet active server froa slot table 

.Return 



, CSALTSLT - Get alternate slot function 

i FUNCTION GSaltSlt. integer; 

OSiitSlt 

sove.i pSysCoa.w.al 
aove.l 5Cslttbl(al),al 
aove.w STilslttal) ,4tsp) 
rts 



,Get pointer to SysCoa 

, Get pointer to siot table 

.Get alternate slot froa slot tab 

.Return 



, OSALTSRV - Cet alternate server function 

, FUNCTION OSaltSrv; integer, 

OSaltSrv 



aove.l pSysCoa.w.al 

aove.i SCslttbl(al) ,ai 

aove.w STalsrv(al>,4(sp) 
rts 



, Get pointer to SysCoa 

,Get pointer to slot table 

.Get alternate server froa slot table 

.Retain 



, Q5VRTCRT - Get CRT orientation function 

, FUNCTION OSvrtCrt: boolean; (TRUE if vertical, FALSE if hoiiiontai) 

OSvrtCri 



clr.b 4(sp) 
aovea.i l$30F61,aO 
btst I3,(a0> 



.Set function return to FALSE 
.Get pointer to orientation switch 
.Vertical orientation? 
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CC4E 


t70C 


0008 




324* 


boff ?ctcrti 


0052 


1F7C 


0301 


0004 


325* 


■ove.b 11 ,4(sp) 


0056 


4E75 






326* 
327* 


•rtcrti rts 



;no, return 

iSet function return to TRUE 

, Return 
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005A 

005A 205F 

005C 301F 

Q05E 5340 

0060 6D1C 

0062 0C40 0005 

0066 6C16 

0068 CflFC 0004 

006C 0640 OOOC 

G070 2278 Qi 80 

0074 226? 003C 

0078 1EB1 0001 
6002 



007C 



O07E 4217 



0O82 

0082 205F 

0064 301F 

G0e6 CQFC 0020 

OOftA 2278 0180 

008E 2269 0014 

0092 D3FC OOOC 

0098 D3C0 

Q09A 4241 

009C 1229 
3F01 



0014 



OOAO 

60A2 4B50 

OOA4 60B4 



O0A6 

0OA6 3F7C 01Q0 0004 

OOAC 2278 0180 

OOBO 2269 0032 

00B4 0CA9 OOOC 0000 

OOBA OOOC 

OOBC 6D06 



329* 
330* 
331* 
332* 
333* 
334* 
335* 
336* 
337* 
338* 
339* 
340* 
341* 
342* 
343* 
344* 
345* 
346* 
347* 
348* 
349* 
350* 
351* 
352* 
353* 
354* 
355* 
356* 
357* 
358* 
359* 
360* 
361* 
362* 
363* 
364* 
365* 
366* 
367* 
368* 
369* 
370* 
371* 
372* 
373* 
374* 
375* 
376* 
377* 
378* 
379* 
380* 

381* 



GSSL7TYFE - Get device type for slot function 
FUNCTION OSsltType (slot: integer), slot type, 



OSsltType 

nove.l <spi+,aQ 

aove w ispW.dO 

subq.w II, dO 

bits sittypB 

capi.w 15, dO 

bge.s slttypS 

auiu ISTinfoL.dO 

addi.w *STinfo,dQ 

aove. I p5ysCoa.w,al 

aove.i SCslttblui!,ai 

aove.b 5T t y p e < a I ,d0 .wi ,(sp! 

bra s slttyp9 

sittypB clr .b tsp) 

slttyp? ]Bp Ufi) 



Save return address 

Get slot nuaber 

Coapute offset into slot table 

Error return i r slot not vai id 

Error return if slot not vai id 



Get pointer to SysCoa 
Get pointer to slot Ubie 
Get slot type tor slot 
Return 



Set slot type to : 
Return 



, OSDEVTYFE - Get device type for device function 
, FUNCTION OSdevType \devno. integer), slottype, 



OSdevType 

novel isp>+,aC 

aove.tf lsp)+,dQ 

aulu tUTlen.dO 

aove.1 pSysCon.w,ai 

Bove.l SCdevtabUi),al 

adda.l 12, al 

adda.i dC.il 

clr.w d 1 

Bove.b UTsItlal),dl 

aote w dl,-tsp) 

pea (aC) 

bras OSsltType 



; 05SYSSIZE - Get systea sue function 

i FUNCTION OSsysSixe. integer, 

OSsysSue 

aove.w 1256, 4(sp) 

aove 1 pSysCoa.w.al 

aove . I SCaeaaapUl),al 

capi.l tSCOOQQ.MMhicodUl) 



bave return address 

Get device nuaber 

Coapute mdes into DevTab 

Get pointer to SysCoa 

Get pointer to device table 

Get pointer to device table entry 

Get slot nuaber tor device 

Push slot nuaber 

Push return address 

Get siot type for siot tdevice) 



blt.s ssl 



.Set result to 256k 
,Get pointer to SysCoa 
,Get pointer to aeaory aap 
,1s this a 512k systea' 

,No, return 
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OCBE 3F7C 32C0 C004 
00C4 "4E75 



0OC4 2278 0180 

OSCA 226? C C 32 

COCE 2F4? 0004 0004 

00D4 4E75 



00D4 






00C6 


2Q5F 




OG38 


548F 




00 DA 


2278 


0180 


OOOE 


224? 


0014 


0GE2 


301? 




Q0E4 


244? 




Q0E4 


CQFC 


0020 


OOEA 


D5C0 




OOEC 


224? 


G002 


30F0 


244A 


0002 


0OF4 


7301 




OOFS 


B5C9 




80 Fl 


4 700 


0004 


OOFC 


7000 




OOFE 


1F00 




0100 


4ED0 





GSCURSP - Get current SP for system function 
FUNCTION OScuiSP: iongmt, 



0Scur5F aove. 1 pSysCoi w,al 

aove.l SCmeaaapUlJ ,al 

novel KMhtdta(al/,4(sp) 

rts 



GSEXTCRT - Check (or eiternal CRT function 



FUNCTION OSeitCRT; boolean, 



382* 

383* 

384* 

385* 

386* 

387* 

388* 

389* 

390* 

391* 

392* 

393* 

394* 

355* 

3?6« 

397* 

398* 

399* , 

400* OSeitCRT 

401* 

402* 

403* 

404* 

405* 

404* 

4Q7« 

408« 

409* 

410* 

411* 

412* 

413* 

414* 

415* i 

414* 

417* 



■ove.w 
rts 



1512, 4(sp) 



•Set result to 512k 
.Return 



Get pointer to SysCoe 
Get pointer to aeaory map 
Get current SP 
Return 



aove.l <sp)t,a0 
addq.l 12, sp 
■ove.l pSysCoa.w.al 



10 v e I 


SCdevtabUli.a 


aove w 


(al)f ,d0 


love. 1 


al,a2 


aulu 


tVTien.dO 


adda 1 


d0,a2 


aove. i 


i/TiodrvUl»,al 


aove. 1 


UTiodrv(a2),a2 


aoveq 


11, dC 


cipa . 1 


al,a2 


beq 


eicrtx 


aoveq 


10 , dO 


aove.b 


dO.-(sp) 


3»P 


(aO) 



Save return address 

Reaove function result troa stack 

Get pointer to SysCoa 

Get pointer to device table 

Get nuaber of devices 

Compute last device pointer 



Get driver pointers 



As suae TRUE 

Driver iOi = driver 

Yes, return 

Set FALSE 

Set function result 

Return 
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01 02 3F7C 0002 0004 
OiOi 4E75 



01 OA 

01QA 3F7C 0004 0004 

0110 4E75 



-01 12 

Gin mi oiso 

01U 2269 0014 

01 IA 3F5I 0004 

OUE 4E75 



Oi 20 






0120 


4267 




0122 


6 1EE 




0124 


301F 




0124 


3F4C 


0004 


012A 


4175 





012C 

A12C 4267 

0121 61E2 

0130 3Q1F 
0132 5340 

0134 3F40 0094 

0131 4E75 



, GSstrmDv - Get SYSTEM! device number function 

, FUNCTION GSstrmDv. integer, 

OSstrmDv 



move.w I2,4(sp) 
rts 



.Set function result 
iReturn 



OSprtrD? - Get FRINTER device number function 
FUNCTION OSprtrDv. integer, 
OSprtrD* 



move w I6,4(sp) 
rts 



,Set function result 
.Return 



, G5maiDev - Cet maximum device number function 

, FUNCTICN OSmaiDev. integer, 

OSmaiDev 



move.l pSysCom.w.al 

iove.1 SCdeviabUD.al 

move.w iil),4<sp) 
rts 



,Get pointer to SysCom 
,uet pointer to device table 
,Cet number of devices 
.Return 



, OSdispDv - Cet DISPLAY driver device number function 

, FUNCTION OSdispDv. integer, 

OSdispDv 



clew -(sp) 

bsr.s OSmaiDev 

■ove.w (sp)t.dC 

move.w d0,4isp) 
rts 



,Cet number of devices 



;Set function tesult 
iReturn 



, OSkybdDv - Get KYBD driver device number function 

, FUNCTION OSkybdDv: integer, 

OSkybdDv 



clr.w -(sp) 

bsr.s OSmaiDev 

move.w (sp)+,d0 

subq ll.dfl 

move.w d0,4(sp) 
rts 



Get number of devices 



Get device number 
Set function result 
Return 
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G13A 






01 3A 


4267 




one 


61D4 




013E 


301F 




0140 


SS40 




0142 


3F40 


0004 


0144 


4E75 





0148 

0141 4267 

014A 41C4 

014C 301F 

014E S740 

0150 3F40 0004 

0154 4E75 



0154 

0154 4267 

015! 41B8 

015A 301F 

015C 5940 

Q1SE 3F40 0004 

0162 4E75 



0164 






0164 


4267 




0166 


ilkk 




out 


301F 




QUA 


5B40 




016C 


3F40 


0004 


0170 


4E75 





473* 
474* 
475* 
476* 
477* 
478* 
479* 
480* 
481* 
482* 
483* 
484* 
485* 
486* 
487* 
488* 
489* 
490* 
491* 
492* 
493* 
494* 
495* 
494* 
497* 
498* 
499* 
500* 
5(H* 
502* 
503* 
504* 
505* 
504* 
507* 
508* 
509* 
510* 
511* 
512* 
513* 
514* 
515* 
514* 
517* 
518* 
519* 
520* 
521* 
522* 
523* 
524* 
525* 
526* 



OStimDv - Get TIMER driver derice lumber function 
FUNCTION GStisOv: integer; 
OStimDv 



clr.w -(sp) 

bsr s OS»aiD*t 

move.w <sp)+,dO 

sobq 12, dO 

move.w d0,4(sp) 
its 



,Get number of devices 



Get device number 
Set function result 
Return 



i OSomniDv - Get OKNINET driver device number function 

, FUNCTION CSoiniDv. integer, 

OSoaniDv 



clr.w -(sp) 

bsr.s OSmaiDev 

move.w (sp)+,d0 

sobq 13, dO 

aove.w d0,4(sp) 
rts 



Get number of devices 



Get device number 
Set function result 
, Return 



; OSdca2Dv - Get DTACOM2 driver device number function 
i FUNCTION OSdcm2Dv: integer, 



OSdcm2Dv 



clr.w -(sp) 

bsr.s OSmaiDev 

move.w (spJ+.dfl 

subq t4,d0 

move.w d0,4(sp) 
rts 



,Get number of devices 



, Get device number 
,Set function result 
.Return 



GSdcmlDv - Get DTACON1 driver device number function 
FUNCTION GSdcmlDv. integer, 
OSdcmlDv 



clr.w -(sp) 

bsr.s OSmaiDev 

move.w (sp)+,d0 

subq #5,d0 

move.w d0,4(sp) 
rts 



,Get number of devices 



,Cet device number 
,Set function result 
.Return 



; OSsltDv - Get SIOTIO driver device number function 
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527* 


i 












528* 


, FUNCTION OSsitOv; inte 








527* 


; 






0172 






530* 


OSsltDi 






0172 


4247 




531* 




clr.w 


-isp) 


0174 


619C 




532* 




bsr s 


OStaiDev 


0174 


301F 




533* 




■ove.w 


(sp)t,d0 


0178 


5D40 




534* 




subq 


16, dO 


017A 


3F40 


0004 


535* 




■ove.w 


d0,4(sp) 


017E 


4E75 




534* 
537* 




its 





uet nuibet ot devices 



Get device nuibet 
Set function result 
Return 
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0180 

0U0 2F78 0180 0004 

niju ukv onnn anar 

018C 0004 

018E 4E75 



Oi 90 

0190 2078 0180 

0194 2F63 0048 0004 

019A 4E75 



019C 

G19C 2078 018G 

OUO 2F6B 0044 Q004 

01 A< 4E75 



01A8 

0U8 20SF 

01AA 301F 

01 AC 2F08 

01AE ES48 

01BO 2078 



1180 



01B4 2068 0056 

01B8 2F70 QOOO 0004 

01BE 4E7S 



01C0 

01CO 205F 

01C2 301F 



pOSuseriO - Get Constellation user ID pointer 
FUNCTIOK pOSuseriO: pointer; 



pOSuserlD 

move. I pSysCoa.w,4(sp) 
>ddi.i *SC«!se:!D.4(s R > 

cts 



,Get pointer to SysCom 



iReturn 



, pOScurKbd - Get current keyboard record pointer 
; FUNCTION pOScurKbd: pointer; 



pOScurKbd 

aove.i p5ysCoa.w,aO 
aove.i SCcurrk(a0),4(sp) 
rts 



,Get pointer to SysCoa 

,Get cuirent keyboard pointer 

.Return 



pOScurVnd - Get current window record pointer 
FUNCTION pOScurVnd. pointer, 



pOScurVnd 

aove.i pSysCoa.w.aO 
aove.i SCcuirw(aO),4(sp) 
rts 



,Get pointer to SysCoa 
,Get current window pointer 
iReturn 



; pOSsysVnd - Get systea window record pointer 



FUNCTION pOSsysVnd (wndnbr. integer): pointer; 



pOSsysVnd 

aove.i (sp)+,aQ 

■ove.w (sp)+,d0 

aove.i a0,-(sp) 

1st w 12, d0 

aove.i pSysCoa.w,a0 

tore! 5CwndtblU0),i0 

aove.i 0(a0,d0),4(sp) 
rts 



Save return address 

Get system window number 

Restore return address 

Get indei to window pointer 

Get pointer to SysCoa 

Get pointer to window table 

Get window pointer 

Return 



pOSdevNaa - Get device naae pointer 

FUNCTION pOSdevNaa (untnbr: integer), pointer, 



pOSdevNaa 

aove.i <sp)+,a0 
aove.w (sp-) + ,dfl 



;Save return address 
;Get unit nuaber 
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01 C4 


COFC 


0020 




592* 


Gica 


2F08 






593* 


men 


2078 


0180 




594* 


01CE 


2068 


C014 




595* 


01 02 


DIFC 


0000 


0002 


596* 


01D8 


D1C0 






597* 


01DA 


DIFC 


0000 


0008 


598* 


01 EG 


2F48 


CG04 




59?* 


01E4 


4E75 






600* 
601* 
602* , 
o03» . 
604* , 
605* , 
606* , 


01E4 








607* p 


01E4 


2F78 


0180 


0004 


608* 


01EC 


QoAF 


0030 


0020 


609* 



auU lUTlen.dO 



10 It. 


I aO,-isp) 


aove. 


i pSysCoa w,*0 


aove. 


i SCdevtab(aO),a 


adda. 


1 12, aO 


adda. 


1 dO.aO 


adda 


1 tUTdid.aO 


aove. 


1 aO,4(sp) 


tts 





Coapute entry indei 
Restore return address 
Cet pointer to SysCoa 
Get pointer to device table 
Cet pointer to device ID 



Set function result 
Return 



01 ri 0004 

GtF4 4E75 



pOSdate - Cet systea date pc inter 

FUNCTION pOSdate. pointer, 

pOSdate 

aove.l pSysCo».w,4(sp) 
addi.l tSCtoday , 4 ( sp ) 

rts 



,Get pointer to SysCoa 
,Cet pointer to systea date 



01F6 

01F6 2078 0180 

31FA 2F68 002E 0004 

0200 4C75 



0202 

0202 2078 0180 

0206 2F48 3018 0G04 

020C 4E75 



020E 

020E 2078 0180 

0212 2F68 004E 0004 

0218 4E75 



611* 
612* 
613* 
614* 
615* 
616* 
617* 
618' 
61?* 
620* 
621* 
422* 
623* 
624* 

626* 
427* 
628* 
629* 
630* 
631* 
632* 
633* 
634* 
635* 
636* 
637* 
638* 
639* 
640* 
641* 
442* 
♦ 43* 
644* 



pOSsysVol - Get systea voluae naae pointer 

FUNCTION pGSsysVoi pointer, 

pOSsysVol 

aove 1 p5ysCoa.w,afi .Get pointer to SysCoa 

aove.l SCbootna(aO) ,4(sp) ,Cet systea voluae naae pointer 

rts iReturn 

, pOScurVol - Get current voluae naae pointer 
, FUNCTION pOScurVol pointer, 



pOScuiVoi 



aove.l pSysCoa w,a0 ,Get pointer to SysCoa 

aove.l SCdirnaaUO) ,4(sp) ,Get cunent voiuae naae pointer 

its .Return 



pGSsysVrs - Get GS version nuaber string pointer 

FUNCTION pOSsysVrs: pointer, 

pOSsysVrs 

aove.l pSysCoa.w.aQ ;Get pointer to SysCoa 

aove.l SCvrsnbrUO) ,4(sp) ,Get OS version nuaber pointer 

rts iReturn 

, pOSsysDat - Get OS version date string pointer 
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645* , FUNCTION pOSs?sDat: pointei, 









444* 


i 










021A 






647* 


pOSi 


iysD 


at 






021* 


2078 0180 




648* 






»<m. i 


pSysCo*.w,a0 


,Ger. pointei to sfsCoa 


02 IE 


2F68 00S2 


0004 


449* 






■ofe. 1 


SCusdat(aO) ,4(sp) 


,Cfet OS version date pouter 


0224 


4E75 




650* 
651* 






rts 




.Return 
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653* 








454* 








655* 








656* 








457* 


022* 


2078 


0180 


658* 


022A 


2068 


0008 


654* 


022E 


2070 


0000 


660* 


0232 


4ED0 




661* 
462* 
663* 
664* 
465* 
666* 
667* 


0234 


2078 


S180 


668* 


0238 


2068 


001C 


669* 


023C 


2070 


0000 


670* 


0240 


4ED0 




671* 
472* 
673* 
674-* 
675* 
676* 
677* 
678* 


0242 


7048 




679* 


0244 


6QE0 




680* 
681* 
682* 
683* 
684* 
685* 
686* 


0244 


303C 


0094 


687* 


024* 


40DA 




688* 
689* 
690* 
491* 
692* 
693* 
694* 


024C 






695* 


024C 


205F 




696* 


024E 


3F3C 


0001 


697* 


0252 


4850 




698* 


02S4 


303C 


OOOC 


699* 


0251 


60CC 




700* 
701* 
702* 
703* 
704* 
705* 
706* 



JSVECT - Juip to routine in systea rector 

Paraaeters. DO.V - offset in system vector 

JSVECT MCVE.L pSysCoa.W.AO , (AO) -- syscoa 

HOVE.L SCjtablelA0),A0 , (AO) -- sysvect 

HOVEL 0!A0,D0.W),A0 , <AQ> = desired routine 

JHP (AO) , Go to ill 

JUVECT - Jaip to routine in user vector 

Faraaeters. SO.V - offset in user vector 

JUVECT HOVE.L pSysCoa.W.AO , <A0) = syscoa 

HOVE.L SCutable(A0),A0 , (AO) = uservect 

HOVE.L 0(A0,D0.V),A0 , (AO) = desired routine 

JHP (AO) , Go to it! 

XGETDIR - Read a directory 

procedure igetdir (fvtd: vid, var fdir. directory; var DevBlocied Boolean 
var fdevno: integer, var DevVdlid. Boolean;, eitemai, 



XGETDIR MOVEQ ISVgetdir.DO 
ERAS J5VECT 



XPVTDIR - Write a directory 

procedure iputdir (var fdir: directory, fdevno. integer), 



XPUTDIR HOVE.V ISVputdir.DO 
BRAS JSVECT 



, KeyPress - Test for any key 
i function Keypress: boolean, 



KeyPress 



aove.l (sp)+,a0 

aove.w #1 , - ( spV 

pea \a0) 

aove.w ISVubusy.dO 

bra s JSVECT 



; pop caller return address 
jpush tunction code 
,push caller return address 
iset CCOS function offset 
i do unit status 



BrkPress - Test for break key 
function BrkPress: boolean; 
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325A 






707* BrkPress 




025A 


426? 




708* 


cir.w 


-isp) 


02 SC 


6100 


FEC£ 


709* 


bsr 


OSkybaDv 


0240 


301F 




710« 


loie.w 


(sp)+,dfl , 


0262 


205f 




7U« 


lore. 1 


(sp)t,au ; 


0264 


I2CF 




712* 


love. 1 


sp,di 


0266 


4850 




713* 


pea 


(aO) 


026! 


3F3C- 




714* 


Bove.w 


d0,-(sp) 


026A 


2FC1 




715* 


■0T8. 1 


di.-(sp) 


02 6C 


2F3C 


3000 0001 


716* 


B0V4.1 


•1 ,-(sp) 


0272 


487A 


0003 + 


717* 


pea 


bpl 


0276 


303C 


0064 


718* 


Bove.w 


ISVustat.dO 


027A 


60AA 




719* 


bra.s 


JSVECT 


027C 


20SF 




720' 


pi Bove.i 


(sp)*,a0 , 


027E 


3017 




721* 


Bove.w 


(sp),d0 


0260 


E146 




722* 


Isl.w 


*8,d0 


0282 


3E80 




723* 


■ove w 


d0,<sp) 


0284 


4ED0 




724* 


3»P 


(afl) 



get keyboard driver unit noiber 

pop keyboard driver unit nuiber 

pop cailer return address 

get pointer to result 

push caller return address 

push unit nuaber 

push buffer address 

push function code 

push our return address 

set CCOS function offset 

do unit status 

pop cailer return address 

convert unit status to boolean 



return to cailer 
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ACTIVE 00009006 


IOEUIOPM 00000036 


•OSVRTCRT 


0000404 


STALSRV 


OOOOO0OA 


UTBLK 


0000001C 


BP1 00027C+ 


IOEVKDBE 


00000021 


•POSCURXB 


0001904 


STBTSLT 


00000000 


UTOID 


00000001 


BRKPRES5 OOOZSAt 


IOEVNDCS 00000022 


•PQSCURVO 


0002024 


STBTSRV 


00000002 


UTDRV 


00000016 


CLRSC 00000006 


IOEVNDDC 


00000023 


•POSCURWN 


00019C4 


STINFO 


Q000000C 


UTFLP 


0000001B 


CSATTR1 00000010 


IOEVNDDS 00000024 


•POSDATE 


0001E64 


STIKFOL 


00000004 


UTIODRV 


00000002 


CSATTR2 (10000011 


IOEWNDFN 00000020 


•POSOEVNA 


0001C04 


STNDRV 


00000002 


UTLEH 


00000028 


CSBPCH 00000006 


IOEVNOIV 0000002S 


■PQSSYSDA 


00021A* 


5TNMBR 


OOGOOOOO 


UTHTD 


00000007 


CSFRSTCK 00000008 


IOEVNDVN 00000027 


•P05SYSVO 


0001F64 


STTYPE 


00000001 


UTRO 


OOOOOOU 


CSIASTCH 0000000A 


IOEVNDVR 


00000026 


»POSSYSVR 


00020E4 


SUSPEND 


00000007 


UTSIZ 


00000010 


C5LPCH 00900004 


10EVSZER 


00000041 


♦POSSYSWN 


0001AI4 


SVBLKIO 


0000002C 


UTSLT 


00000014 


C5HA5X 0004000C 


IOOX 


00000000 


*POSUSERI 


0001804 


SVCL1 


0000007C 


OTSPT 


00000018 


CSTBUOC 00000000 


JSVECT 


0002264 


PSYSCOH 


00000180 


SVCLOSE 


00000020 


UTSRV 


0000091S 


CURSON 00000002 


JUVECT 


0002344 


SCBOOTDY 00000036 


SVCRKPTH 00000060 


UTTPS 


00000019 


EXCRTX 0000FE+ 


•KEYPRESS 


00024C+ 


SCBOOTNM 0000002E 


SVDELEMT 00000090 


UTTYP 


00000017 


GRAPHIC 00000001 


KMBTBLK 


0000001A 


SCCODEJT 00000022 


SVOSP 


00000038 


VERT 


oooooooo 


IMSMOD 00000002 


MMBTDEV 


00000012 


SCCURRK 


00000048 


SVDSP4 


0OOO0O6C 


VIDDEFLT 00000003 


INVCURS 00000003 


KMETDRV 


00000018 


SCCURRV 


O0000044 


SVFLPDIR 


00000088 


VIDSET 


00000007 


INVRSE 00000000 


MHBTStT 


000O0014 


SCDEVTAB 


00000014 


SVGET 


00000014 


VRTCRTI 


0O00SB4 


IOEBSZER 00000040 


HMBTSRV 


00000016 


SCDIRNAH 00000018 


SVCETDIR 00000048 


VRAPQN 


00000004 


IOECLKHF 00000039 


HHBTSV 


00000010 


SCFREEHP 


00000004 


SVGETVNH 00000080 


VRATTRt 


00000020 


IOEFNCCD 00000038 


HKHICOD 


OOOOOOOC 


SCIORSLT 00000000 


SVINIT 


00000018 


WRATTR2 


00000021 


IOEINVOE 00000002 


HHHIDTA 


00000004 


SCJTABIE 


00000008 


SVHARK 


0000003C 


VRATTR3 


00000024 


IOEIOREQ Q0000001 


KHLOCOD 


00000008 


SCHEMMAP 


00000032 


SVMAVAIl 00000044 


WRBASEI 


000O000E 


IOEIRDSB 0000003C 


MHLODTA 


00000000 


SCNUKPRO 


00000028 


SVNEV 


00000034 


VRBA5EY 


00000010 


IOEIWDSB 0000003E 


KOAUTOLF 


00000004 


SCNXTPRO 


00000026 


SVNEV4 


00000068 


VRBITOFS 


OOOOOOU 


IOEKYBTE 00000035 


NOSCROIL 


ooooooos 


SCPROCNO 


00000002 


SVOPEH 


0000001C 


WRCHARPT 


00000008 


IOENFDRV 0O00002D 


♦OSACTSLT 


0000004 


SCPRQTBL 


OOOQ002A 


SVPUT 


60000010 


VRCURADR 


00000008 


IOENOBUF 000 00 17 


•OSACTSRV 


00001O4 


SCROOTW 


00000040 


SVFUTDIR 00000094 


VRCURSX 


00000016 


IOEHOOSP 00000028 


•OSALTSLT 


0000204 


SCSLTTBL 


0000003C 


SVRDCHAR 


00000028 


VRCURSY 


00000018 


IOENODTC 0000002E 


«OSALTSRV 


0000304 


SCSUSINH 


0000005A 


SVULEASE 


00000040 


VRFILL1 


00000025 


IOEHOKYB 0000002? 


*OSCURSP 


0OOOC64 


5CSUSREQ 


Q00000SC 


SVSCHOIR 0000008C 


VRFILL2 


00000026 


IOENOOMN 0000002B 


*OSDCMDV 


0001644 


SCSYSIK 


00080010 


SVSEEK 


00000030 


VRFILL3 


00000027 


IOENOPRT 0000002C 


"OSDCK2DV 


0OD1564 


SCSYSOUT 00OQ000C 


SVUBUSY 


OOOOOOOC 


WRFIL14 


00000028 


IOENOTIK 00000Q2A 


•05DEVTYP 


0000824 


SCTODAY 


00000020 


SVUCLEAR 


00000008 


WRCRORGX 


0000091C 


IOENOTRN 0000 00 IS 


*OSDISPQV 


0001204 


SCUSERID 0000004C 


SVU1NSTL 


00000098 


VRGRORGY 


0CO0O01E 


IOEORDSB 0000003D 


•OSEXTCRT 


000OD44 


5CUTABLE 


0000001C 


SVUREAD 


00000004 


VRHOHEOF OOOOOOOC 


IOEOVDSB 0000003F 


•GSKYBDDV 


00012C4 


SCVRSDAT 


QQOC0OS2 


SVUSTAT 


30000064 


VRHOKEPT 


00000004 


IOEPADER 00000044 


•OSHAXDEV 


0001124 


SCVRSNBR 


0000004E 


SVUVRITE 00000008 


VRLENCTM 00000031 


IOEPRHLN 00000037 


*OSOMNIDV 


0001484 


SCWNDTBL 


0Q0QOOS6 


SVVALOIR 00000084 


WRLNGTHX 


00000012 


IOERSZER 00000042 


♦OSPRTRDV 


Q0010A4 


SLTTYP8 


00007E4 


SWRCHAR 00000014 


VRLNGTHY 


00000014 


IOETBLFL 00000033 


*OSSLTOV 


0001724 


5LTTYP9 


0000804 


SYSBYTES 


00000186 


WRRCDLEM 00000023 


IOETBLID 00000032 


«GSSLTTYP 


00OOSA4 


SSl 


0O00C44 


SYSKYBDF 


00000184 


VRSTATE 


00000022 


IOETBLIU 00000034 


♦OSSTRMDV 


0001024 


STACSLT 


00000004 


SYSVIN 


OOOOOOOS 


VRWSPTR 


000O0O2C 


IOETISOT 00000016 


*OSSYSSIZ 


000OA64 


STACSRV 


00000006 


UNDSCt 


00000001 


•XGETDIR 


00O2424 


IGEUAHTE 00000043 


«OSTIHDV 


00013A4 


STAISLT 


00000008 


UTBLF 


00000006 


♦XPUTDIR 


0002464 



errors. 727 lines. File CCLIB.OSI.TEIT 



